www.1862.net > visuAl BAsiC Form1的咋做

visuAl BAsiC Form1的咋做

Form1得设成MDI窗体(IsMDIContainer设置成True),在Form2的Load事件里写Me.MdiParent = Form1

添加一个窗体form2,然后用showdialog来显示就可以了.要显示信息的话可以在form2上添加一个label控件. dim frm2 as new form2 frm2.label1.text = "模拟msgbox" frm2.showdialog()

'添加两个窗体在第一个窗体中加入一个Command控件 代码如下: Private Sub Command1_Click() Form2.Show End Sub

如果是在其他模块中引用form1中的text1可这样写form1.text1.text="“,如果是在from1模块中引用text1可省略"form1",直接写成text1.text=""

VB 的菜单栏不是和 text 或者 label 一样(在左边的控件区域点击就可以). 而是点击工具栏上面“保存”按钮右边的一个长的像菜单的按钮,或者从“工具”菜单中,选取“菜单编辑器”;或者用快捷键 ctrl+e 都可以调出 而后: 要在菜单编辑

'添加两个窗体 在Form1上添加一个TextBox控件 单击Form1时隐藏Form1显示Form2 单击Form2 显示Form1中TextBox中的内容 示例代码如下:'在Form1中的代码:Private Sub Form_Load()Form2.ShowForm1.HideEnd Sub'在Form2中的代码:Private Sub Form_Click()MsgBox Form1.Text1.TextEnd Sub

用form2.show(1) 就行了 例子: Private Sub Command1_Click() Form2.Show (1) 可选的.字符串表达式,指出部件所属的窗体被显示.对于标准的Visual Basic 窗体

在form1的通用区声明pass为publicpublic pass as string'比如这样在Mdiform1中调用格式为form1.passMsgBox form1.pass'比如这样

a=val(text1.text)b=val(text2.text)if a+b>c and a+c>b and b+c>a then text3.text="能" else text3.text="不能"end if

Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long Const HWND_TOP = 0

网站地图

All rights reserved Powered by www.1862.net

copyright ©right 2010-2021。
www.1862.net内容来自网络,如有侵犯请联系客服。zhit325@qq.com