UC知道vb问题两个……
来源：百度知道 编辑：UC知道 时间：2024/05/22 17:45:55
本人菜鸟，以前考的vb2级,现在忘光了.最近忽然想研究研究vb来了，因为菜，很东西看了也不会，所以今天找两个例子问问大虾们。对大侠来说简单而且没有什么使用价值,但是我想用这个来了解呢.请帮我写全了，包括定义变量啊，vb里要做什么设置啊，添加什么东东啊，也就是我copy后可以直接运行。
问题一:怎麽样实现关机，网上有语句ExitWindowsEx EWX_SHUTDOWN, 0 ' ShutDown，但是我用了没有效果，可能是要做什么设置或者添加什么部件吧，希望大虾写全了给我，顺加些注释。就当我刚装vb什么都没有设置过。用到什么函数是吗，函数怎么用不太懂耶，稍微解释一下，辛苦了给追加些分，呵呵。实现：单击command1后计时10秒后关机。
问题二：怎麽样调用excel的数据，网上也n多了，但是我想有个例子让我具体感觉感觉。实现：有一表格,在d：\abc.xls ,里面已经存在a1----a5为编码,b1----b5为对应的价格,运行程序后,
a) 在text1中输入编码,在text2中输入价格,单击command1将数据加到表格中,也就是a6对应b6 ,如果已经有此编码,则以消息框报错,要求重输,符合后加入;
b) 在text3中输入编码,label1中会显示对应价格,如果表中没有此编码,则弹出输入框,要求在框中输入并在label1中显示对应价格.
麻烦详细些哇……
问题一:怎麽样实现关机，网上有语句ExitWindowsEx EWX_SHUTDOWN, 0 ' ShutDown，但是我用了没有效果，可能是要做什么设置或者添加什么部件吧，希望大虾写全了给我，顺加些注释。就当我刚装vb什么都没有设置过。用到什么函数是吗，函数怎么用不太懂耶，稍微解释一下，辛苦了给追加些分，呵呵。实现：单击command1后计时10秒后关机。
问题二：怎麽样调用excel的数据，网上也n多了，但是我想有个例子让我具体感觉感觉。实现：有一表格,在d：\abc.xls ,里面已经存在a1----a5为编码,b1----b5为对应的价格,运行程序后,
a) 在text1中输入编码,在text2中输入价格,单击command1将数据加到表格中,也就是a6对应b6 ,如果已经有此编码,则以消息框报错,要求重输,符合后加入;
b) 在text3中输入编码,label1中会显示对应价格,如果表中没有此编码,则弹出输入框,要求在框中输入并在label1中显示对应价格.
麻烦详细些哇……
因为程序代码比较多,给你放到了这个地址,你下载看吧,记着把Excel文件放到D:\下,我把Excel表中多加了一行标题,这样方便ADO查询,如果你不想这样做,那再连系我,还有一种用ExcelApp的方法读取,但是此方法比较麻烦.
下载地址:
http://www.dewsun.com/soft/uploadsoft/VB关机.rar
是我自已的网站,没有病毒
1、
Private Sub Form_Load()
Call Shell("shutdown -s -t 10")
End
End Sub
Private Sub Command1_Click()
Form2.Show
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
If Chr(KeyAscii) = "c" Then
Circle (1500, 2000), 800, vbcolor = (15)
End If
If Chr(KeyAscii) = "s" Then
Form2.Cls
End If
End Sub
Private Sub Command1_Click()
Static n As Long
n = n + 1
If Text2.Text = "123" Then
Me.Hide
Form2.Show
Else
If n < 3 Then
MsgBox "reget", vbOKOnly + vbCritical, "massage"
Else
MsgBox "