Foxtable(狐表)用户栏目专家坐堂 → [求助]颜色标签


  共有3676人关注过本帖树形打印复制链接

主题:[求助]颜色标签

帅哥哟,离线,有人找我吗?
有点甜
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/8/7 21:31:00 [显示全部帖子]

 可以,任意控件都可以代替按钮的功能,代码编写到控件的click事件即可。

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/8/7 23:07:00 [显示全部帖子]

  你的控件不能放在pictureBox里面,不然无法输入中文。 

         

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:颜色标签111.table


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/8/8 10:01:00 [显示全部帖子]

 回复5楼,那你就不要用这个控件,改用Label控件啊,我也不清楚你为什么非要用这个。

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/8/8 10:02:00 [显示全部帖子]

代码改一下

 

Dim yhm As WinForm.ComboBox = e.Form.Controls("用户名")
Dim mm As WinForm.TextBox = e.Form.Controls("密码")

Dim dr As DataRow = DataTables("用户表").Find("用户名 = '" & yhm.Value & "'")
If dr IsNot Nothing Then
    If mm.value = dr("密码") Then
        msgbox("成功登陆!")
       
        Dim dr0 As DataRow = DataTables("成功登陆用户表").find("用户名 = '" & yhm.value & "'")
        If dr0 Is Nothing Then
            Dim r As Row = Tables("成功登陆用户表").AddNew
            r("用户名") = yhm.value
            r.save
        End If
    Else
        msgbox("用户名或密码不正确!")
    End If
Else
    msgbox("用户名或密码不正确!")
End If


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/8/8 11:05:00 [显示全部帖子]

 回复10楼,我测试代码没有问题。

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/8/8 11:06:00 [显示全部帖子]

以下是引用xokxiao在2014-8-8 10:27:00的发言:
请问FOXTABLE有图形按钮

 

你可以用其它代码代替啊,比如 用panel、比如 用label 都可以实现的。


 回到顶部