1. 显示form1窗体的语句
窗体是一种文档,可以用来收集信息。
窗体包括两部分,一部分是由窗体设计者输入的,填写窗体的人无法更改的文字或图形。
窗体设计者可以插入希望得到回答的问题、选项列表、信息表格等。
另一部分是由窗体填写者输入的,用于从填写窗体者处收集信息并进行整理的空白区域。
窗体设计者可以在文档中插入窗体域或 ActiveX 控件,为窗体填写者提供用于收集数据的位置。
窗体用途:
1.数据的查看与输入。
2.控制应用程序的流程。
3.自定义对话框:为用户提供系统的信息。
4.打印数据库信息。
5.可以通过“填写窗体”使文档受保护且不能复制。
2. 要将名为form2的窗体显示出来
load使窗体载入时的事件,而Activate是窗体被选为活动窗体时(即焦点在窗体上)的事件例如:一个工程里有FORM1和FORM2,在form1中输入如下代码:
Private Sub Form_Load() Form2.Show End Sub 在form2中输入如下代码:
Private Sub Form_Activate() Print "123456789" End Sub 此时,运行时,焦点在FORM1上,所以虽然两个窗体都同时显现出来,但FORM2窗体并没有文字 等到单击FORM2(单击窗体上或标题栏均可)时,FORM2上即会出现123456789的字样。
如果把form2中的事件换成Load事件,那么,在开始运行时,FORM2上会直接出现123456789的字样。
3. 下列用来设置窗体form1属性的语句中
action是表单提交访问的后端接口,method是设置访问接口的方式是get还是post等
4. 设置窗体form1
原来的form是父窗体不能关闭,只能隐藏。
在form1的按钮事件里写
Form2ftm2=newForm2();
ftm2.show();
me.visable=false;
5. 在窗体form1上添加菜单
Option ExplicitPrivate Sub Combo1_DblClick()If Combo1.ListIndex < 0 Then Exit SubCombo1.RemoveItem Combo1.ListIndexEnd SubPrivate Sub Form_Click()List1_DblClickEnd SubPrivate Sub List1_DblClick()If List1.ListIndex < 0 Then Exit SubCombo1.AddItem List1.TextEnd Sub
6. 以下语句可以隐藏窗体Form1的是( )
你在窗体上加一个名为TEXT1的文本框,然后向文本框输入字符看看
Private Sub Form_Load()
Label1.Alignment = 2 '注意这行,可以在设计时完成
Label1.AutoSize = True '注意这行,可以在设计时完成
End Sub
Private Sub Text1_Change()
Label1 = Text1.Text '给你测试的
End Sub
7. 以下能在窗体form 1的标题栏中显示
Private Sub Text1_Change()Cls
Print Text1.Text
End Sub
如果想让它在制定窗体位置,就放个Label,位置自定
Private Sub Text1_Change()Label1.Caption=Text1.Text
End Sub
重要的是Text1_Change
8. 能在窗体form1的标题栏中显示
PrivateSubCmd1_Click() Text1.Text=MsgBox("是否输入",vbYesNo) EndSub PrivateSubForm_Load() Text1.Text="" Cmd1.Caption="输入" EndSub
9. 在名称为form1的窗体上画一个文本框
VB中只需在另一窗体的文本框控件名前加上该窗体名做前缀后给与赋值。Option ExplicitPrivate Sub Command1_Click() Form2.Text1 = Me.Text1End SubPrivate Sub Command2_Click() Form2.ShowEnd SubPrivate Sub Form_Load() Text1 = "VB中只需在另一窗体的文本框控件名前加上该窗体名做前缀后给与赋值。"End Sub
10. 要使当前form1窗体栏显示
VB.NET不能本身引用其默认实例 ,即是呢Form1本身是个类,在类内在实例化自已就会报错,所以设置了成员属性Me.text来设置窗口文本
11. 要在窗体form1内显示
设置控件位置使用Top,Left属性,要在屏幕居中,利用VB内置对象 Screen
Form1.Left = (Screen.Width - Form1.Width) / 2
Form1.Top = (Screen.Height - Form1.Height) / 2
当然,如果你只是一开始(第一次显示)居中,设置 StartupPosition=2即可
- 相关评论
- 我要评论
-