00问答网
所有问题
当前搜索:
msgbox在vb中的意思
我要用
VB
做一个密码生成器
答:
造字程序自己造的?这个可以用ASC和CHR函数。我随便说一下吧。你自己看看,不合适再找我。你先新建个
VB
程序。添加个文本框和标签(Label)。然后在文本框的change事件中添加以下代码:label1.caption=label1.caption & "字符:" & text1.text & "ASC码为:" & asc(text1.text) & " "这样你把...
用
VB
6.0怎样获得本机IP地址?
答:
使用Winsock控件即可获得,方法如下:Private Sub Command1_Click()
MsgBox
Winsock1.LocalIP End Sub 注意:Winsock控件不是标准工具箱
中的
控件,使用前要先在菜单"工程-部件"中选择,将"Microsoft Winsock Control 6.0"选中就可以了
VB
6.0的自定义函数怎么传回值?
答:
1.FrmMsg窗体增加一个整型全局变量(比如public A as integer 2.在按钮事件中加入2句,一句设置变量的值,比如 cmdyes设a=1,no设a=2,一句是me.hide 3.函数改成Public Function MBox(Line1 As String, line2 As String, lStyle As Long) as integer 4.函数的show窗体语句改成show 1 (模态...
vb
6.0 怎么搜索Datagrid的内容,并将那一行选中?
答:
Private Sub Command1_Click() '点击查找按钮Adodc1.Recordset.MoveFirstAdodc1.Recordset.Find "姓名 like '%" & Text1.Text & "%'"If Adodc1.Recordset.EOF Then
MsgBox
"未找到!"End Sub
VB
连接access时如果找不到数据库文件能不能让它不提示“\E\***.M...
答:
在你连数据库的代码前加on error resume next
意思
是发生错误时不提示,向下执行.然后在连数据库的代码下面加if err.Number<>0 then
msgbox
"出错了" end endif 第二个问题你试这里用控件面板中 区域 / 高级
里面
设置 台湾 .
求
VB
编写的关闭、重启、注销的代码,谢了!!
答:
'在标准模块内 Private Const EWX_LOGOFF = 0 Public Const EWX_SHUTDOWN = 1 Public Const EWX_POWEROFF = 8 '此参数
在VB
自带API浏览器并未提供,值得注意,如果没有此参数在Win2kServer会死在关机屏幕下 Private Const EWX_REBOOT = 2 Private Const EWX_FORCE = 4 Private Const TOKEN_ADJUST...
VB
.NET 如何将"\u5E93\u59C6"转为汉字
答:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
MsgBox
(unicode2hz("\u59C6"))End Sub Function unicode2hz(ByVal uni As String) As String uni = uni.Replace("\u", "")Dim arr(1) As Byte arr(1) = Convert.ToByte...
VB
如何连接Access数据库
答:
Myrt.Open "select * from 表名", Mycon, 3, 1 ' 记录集对象执行打开操作,从数据库
中的
一个表中取得记录,在这里Mycon就代表数据库了。"select * from 表名"这句
意思
是从一个表中取得所有记录。你具体试验时把表名修改一下。'在这里就从数据库的一个表中取得有用的数据了,你可以通过对My...
加高分!
VB
如何识别扑克牌是几点?
答:
可以实现。在花色中央位置提取颜色值。判断红&黑色值。如果为白色则是大小王。如果为红色,在红心的上方位置提取颜色值,如果为红色该花色为“方片”,如果为白色该花色为“红桃”。判断黑色也是如此。判断数值多取几个点而已,只有当几个点都不为白色时则为某一数值。
如何用
VB
清空excel表格
答:
加一行。...Set xlSheet = xlBook.Worksheets(1)xlSheet.Range("A1:IV65536").Clear ADOrs.ActiveConnection = ADOcn ...
棣栭〉
<涓婁竴椤
53
54
55
56
57
58
59
60
61
76
其他人还搜