本程序由主窗体form1和子窗体form2组成，设计界面如下图所示： 主窗体上建立的对象有Image1、Button1（加载图片）、Button2（退出）、OpenDialog1。子窗体上建立的对象有Label1、BitBtm1（Yes）、BitBtm2（No）。 单击“打开文件”按钮（Button1），会弹出打开文件对话框。用户指定一个图像文件后，图像加载到Image1显示区中。 单击“退出”按钮，会弹出确认对话框（Form2）。如果用户按“Yes”键，程序结束；如果按“No”键，返回主窗体。 下面是Unit1的代码部分，请在下划线处完成程序填空。 implementation {$R*.dfm} uses （①） procedure TForm1.Button1Click(Sender:TObject);//加载图片 begin if（②）then Image1.Picture.LoadFromFile(③) end procedure TForm1.Button2Click(Sender: TObject)//退出 begin if（④）=mrYes then（⑤） end; end.
相关推荐
-
1、本程序由主窗体form1和子窗体form2组成，设计界面如下图所示： 主
本程序由主窗体form1和子窗体form2组成，设计界面如下图所示：主窗体Form1上建立的对象有Panel1、MediaPlayer1、OpenDialog1、Button1（打开文件）、Button2（播放）、Button3（...
-
能使窗体Form1不可见的语句有（）。AA.Form1.Height=0BB.Form1.Width=0CC.Form1.Visible=0DD.Form1.BorderStyle=0EE.Form1.Hide
-
3、以下能在窗体Form1的标题栏中显示"Visual Basic窗体"的语句是
以下能在窗体Form1的标题栏中显示"Visual Basic窗体"的语句是（）。AForm1.Name="VisualBasic窗体"BForm1.Title="VisualBasic窗体"CForm1.Caption="VisualBasic窗体"DForm1.Text="VisualBasic窗体"
-
4、下面程序运行后，窗体(Form1)中输出的结果是( )Privatesubf
下面程序运行后，窗体(Form1)中输出的结果是( )Privatesubform_load()form1.autoredraw=truex=3:y=5Printx;yendsubATrueTrueB35C窗体无显示Dx=3y=5
-
5、一个工程中含有窗体Form1、Form2和标准模块Model1,如果在For
一个工程中含有窗体Form1、Form2和标准模块Model1,如果在Form1中有语句Public X As Integer,在Model1中有语句Public Y As Integer。则以下叙述中正确的是（ ）。A变量X、...
-
6、假定窗体的名称(Name属性)为Form1，则把窗体的标题设置为“VBTes
假定窗体的名称(Name属性)为Form1，则把窗体的标题设置为“VBTest”的语句为( )AForm1=“VBTest”BCaption=“VB Test”CForm1.text=“VBTest”DForm1.Name=“VBTest”