- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]颜色标签 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=54951)
-- 发布时间：2014/8/7 21:28:00
-- [求助]颜色标签
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:颜色标签.table |
此主题相关图片如下：未命名.jpg
-- 发布时间：2014/8/7 21:31:00
--
可以，任意控件都可以代替按钮的功能，代码编写到控件的click事件即可。
-- 发布时间：2014/8/7 22:47:00
--
以下是引用有点甜在2014-8-7 21:31:00的发言：
可以，任意控件都可以代替按钮的功能，代码编写到控件的click事件即可。
可以，任意控件都可以代替按钮的功能，代码编写到控件的click事件即可。
老师，好像不行，不知道哪里错了
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:颜色标签111.table |
-- 发布时间：2014/8/7 23:07:00
--
你的控件不能放在pictureBox里面，不然无法输入中文。
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:颜色标签111.table |
-- 发布时间：2014/8/8 9:57:00
--
老师，单击没有反应，双击跳出对颜色对话框
此主题相关图片如下：未命名.jpg
-- 发布时间：2014/8/8 10:01:00
--
回复5楼，那你就不要用这个控件，改用Label控件啊，我也不清楚你为什么非要用这个。
-- 发布时间：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
-- 发布时间：2014/8/8 10:08:00
--
以下是引用有点甜在2014-8-8 10:01:00的发言：
回复5楼，那你就不要用这个控件，改用Label控件啊，我也不清楚你为什么非要用这个。
回复5楼，那你就不要用这个控件，改用Label控件啊，我也不清楚你为什么非要用这个。
这个控件可以设成透明，Label控件不可以设成透明，不影响底图
[此贴子已经被作者于2014-8-8 10:09:04编辑过]
-- 发布时间：2014/8/8 10:10:00
--
标签是可以设置为透明的,但是这个透明只认窗口色或者容器色.
-- 发布时间：2014/8/8 10:17:00
--
我明明输入密码头123，却提示输入错误
此主题相关图片如下：qq图片20140808101158.jpg
[此贴子已经被作者于2014-8-8 10:18:16编辑过]