lzth.net
当前位置:首页 >> vB单击窗体出现对话框 >>

vB单击窗体出现对话框

Private Sub Form_Click() MsgBox "Hello" End Sub

Private Sub Form_Click()If MsgBox("请选择", vbYesNo) = vbYes Then MsgBox "你选择了是"Else MsgBox "你选择了否"End IfEnd Sub 或者是这样Private Sub Form_Click()If MsgBox("请选择", vbYesNo) = vbYes Then Print "你选择了是"Else Print "你选择了否"End IfEnd Sub

private sub form_click() dim n n=val(inputbox("输入任意整数:")) if n mod 2 =0 then msgbox "您输入的是偶数" else msgbox "您输入的是奇数" endif end sub

我是来看评论的

Private Sub Form_Click() MsgBox "你单击了窗口!", , "提示" End Sub Private Sub Form_Resize() MsgBox "你改变了" End Sub

电脑上没VB,只能用EXECL里的VBA写了,记不得事件表示的具体代码区别了,应该适用VB的,如果有问题,你直接就复制中间代码好了,窗体的事件你自己选下 MouseDown 事件.Private Sub Form1_MouseDown(ByVal Button As Integer,

开始-设置-控制面板-鼠标-启用单击锁定

你可以先设计一个窗体,并将工程--》属性中的启动对象设置为该窗体.在窗体里面添加文本控件,要求用户输入相关的信息,并进行判断.若通过则 主窗口.load 主窗口.Visible =True unload me应该就可以了.

Option Explicit Private Sub Form_Click() Me.ScaleMode = 3 Me.AutoRedraw = True Me.Cls Me.CurrentY = 10 Dim i As Long For i = 1 To 9 Me.CurrentX = Me.ScaleWidth / 2 - (i * 5) Me.Print String(2 * i - 1, CStr(i)) Next i Me.Refresh End Sub

最简单的就是用msgbox函数来实现: Private Sub Command1_Click() msgbox "这里可以是你要描述的一句话" End Sub

网站首页 | 网站地图
All rights reserved Powered by www.lzth.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com