[求助]颜色标签 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

共有3678人关注过本帖树形打印复制链接主题：[求助]颜色标签

xokxiao

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：190 积分：1312 威望：0 精华：0 注册：2014/6/28 18:07:00

[求助]颜色标签 发帖心情

Post By：2014/8/7 21:28:00 [只看该作者]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:颜色标签.table

此主题相关图片如下：未命名.jpg

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/8/7 21:31:00 [只看该作者]

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

xokxiao

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：190 积分：1312 威望：0 精华：0 注册：2014/6/28 18:07:00

Post By：2014/8/7 22:47:00 [只看该作者]

以下是引用有点甜在2014-8-7 21:31:00的发言：
可以，任意控件都可以代替按钮的功能，代码编写到控件的click事件即可。

老师，好像不行，不知道哪里错了

下载信息 [文件大小：下载次数： ]
点击浏览该文件:颜色标签111.table

有点甜

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/8/7 23:07:00 [只看该作者]

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

下载信息 [文件大小：下载次数： ]
点击浏览该文件:颜色标签111.table

xokxiao

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：190 积分：1312 威望：0 精华：0 注册：2014/6/28 18:07:00

Post By：2014/8/8 9:57:00 [只看该作者]

老师，单击没有反应，双击跳出对颜色对话框

此主题相关图片如下：未命名.jpg

有点甜

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/8/8 10:01:00 [只看该作者]

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

有点甜

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | 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