更多"在一个窗体上有两个命令按钮,cmdMax 和 cmdMin。单击cmd"的相关试题:
[填空题]在一个窗体上有两个命令按钮,cmdMax 和 cmdMin。单击cmdMax时,窗体上显示“字体由小变大”,字号每次增加2;单击cmdMin时,窗体上显示“字体由大变小”,字号每次减小2。请填空。
Private Sub Form_Load( )
Forml.Caption =“字体变化示范”
cmdMax.Caption=“字体变大”
cmdMin.Caption=“字体变小”
End Sub
Private Sub cmdMax_Click( )
【 】
Forml.Print”字体由小变大”
End Sub
Private Sub cmdMin_Click( )
【 】
Forml.Print“字体由大变小”
End Sub
[填空题]在一个窗体上有一个命令按钮CmdMax。单击CmdMax时,窗体上显示“字体由小变大”,字号每次增加2。请填空。
Private Sub Form_Load( )
Form1.Caption="字体变化示范"
CmdMax.Caption="字体变大"
End Sub
Private Sub CmdMax_Click( )
______
Form1.Print "字体由小变大"
End Sub
[填空题]在一个窗体上有一个命令按钮,CmdMax。单击CmdMax时,窗体上显示“字体由小变大”,字号每次增加2。请填空。
Private Sub Form_Load( )
Form1.Caption=“字体变化示范”
CmdMax.Caption=“字体变大”
End Sub
Private Sub CmdMax_Click( )
【8】
Form1.Print“字体由小变大”
End Sub
[填空题]在Visual Basic工程prjl中包含有两个窗体,窗体form1(主窗体)上有两个命令按钮command1和 command2,一个文本控件text1;窗体dialog是一个对话窗体,窗体包含两个命令按钮OK和Cancel,一个文本控件text1和一个标签控件labe11。
编写程序要求实现的功能为:窗体form 1上command1的caption属性值为name,程序运行后,当单击 eommand1时,弹出对话窗体dialog,其labe11控件中的提示信息为“please input your name:”,要求用户输入自己的姓名。如果单击OK按钮,保存当前输入的内容并返回form1界面,command1的caption属性值为email。若再次单击command1命令按钮,仍然出现dialog对话窗体,此时dialog的labe11提示用户输入自己的email,当用户输入email后,单击“确定”按钮,保存当前输入的内容并返回form1界面;如果单击Cancel按钮,则输入内容无效并返回form1。
Private Sub Command1_Click( )
Dialog. Text1. Text = ""
Dialog. Show
End Sub
Private Sub Command2_Click( )
Text1. Text = "email: "+ Dialog. email +" name: "+ Dialog. fname
End Sub
Private Sub Form_ Load( )
Command1. Caption = "name"
【7】 . Caption = "please input your name:
Dialog. i = 0
End Sub
Option Explicit
Public i As Integer
Public email As String
Public fname As String
Private Sub CancelButton_Click( )
i=0
[填空题]新建一个工程,内有两个窗体,窗体Form1上有一个命令按钮Command1,单击该按钮,
Form1窗体消失,显示Form2窗体,程序如下,请填空。
Private Sub Command1_Click( )
Form1.Hide
Form2. 【8】
End Sub
[填空题]在一个工程中有两个窗体,窗体Form1上有一个命令按钮Disp,单击该按钮,Form1窗体 隐藏,显示Form2窗体,程序如下,请补充完整。
Private Sub Disp_Click( )
Me.Hide
Form2.【 】
End Sub
[填空题]新建一个工程,内有两个窗体,窗体Form1上有一个命令按钮Command1,单击该按钮,
Form1窗体消失,显示Form2窗体,程序如下:
Private Sub Command1_Click( )
【6】
Form2 【7】
End Sub
试补充完整。