十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
首先要添加两个窗体,假设第一个窗体名为Form1,第二个窗体名为Form2。在Form1窗体中添加个按钮Command1。按钮单击事件的代码为:
成都创新互联专注于西平网站建设服务及定制,我们拥有丰富的企业做网站经验。 热诚为您提供西平营销型网站建设,西平网站制作、西平网页设计、西平网站官网定制、微信小程序开发服务,打造西平网络公司原创品牌,更为您提供西平网站排名全网营销落地服务。
Private Sub Command1_Click()
Form2.Show '用show方法加载并且显示名为Form2的窗体
End Sub
show 方法后面省略了两个参数即Form2.Show 0或Form2.Show 1此参数可缺省。可自行运行验证
可以利用msgbox 实现,也可以通过另外的窗体上画出表格实现
方法一,利用msgbox:
Private Sub Command1_Click()Dim a As Long, b As Long, c As LongMsgBox "┌────┬────┬────┐" vbCrLf _ "│ 库存1 │ 库存2 │ 库存3 │" vbCrLf _ "├────┼────┼────┤" vbCrLf _ "│" formatstr(a) "│" formatstr(b) "│" formatstr(c) "│" vbCrLf _ "└────┴────┴────┘" End SubPrivate Function formatstr(ByVal inputStr As String) As StringDim j As Integerj = (8 - Len(inputStr)) \ 2formatstr = Space(j) inputStr Space(j) Space((8 - Len(inputStr)) Mod 2)End Function
方法二,利用窗体实现:
’新建form2窗体‘将以下代码复制到form2窗体中Private Sub Form_Load()ShowPrint "┌────┬────┬────┐" vbCrLf _ "│ 库存1 │ 库存2 │ 库存3 │" vbCrLf _ "├────┼────┼────┤" vbCrLf _ "│" formatstr(a) "│" formatstr(b) "│" formatstr(c) "│" vbCrLf _ "└────┴────┴────┘" End SubPrivate Function formatstr(ByVal inputStr As String) As StringDim j As Integerj = (8 - Len(inputStr)) \ 2formatstr = Space(j) inputStr Space(j) Space((8 - Len(inputStr)) Mod 2)End Function‘将以下代码复制在form1窗体中Private Sub Command1_Click()Form2.ShowEnd Sub
首先要添加两个窗体,假设第一个窗体名为Form1,第二个窗体名为Form2。
在Form1窗体中添加个按钮Command1。按钮单击事件的代码为:
Private Sub Command1_Click()
Form2.Show//用show方法加载并且显示名为Form2的窗体
End Sub
show 方法后面省略了两个参数即Form2.Show 0或Form2.Show 1此参数可缺省。
扩展资料
VB窗体的三个基本概念:
编VB程序首先要创建一个良好的可视化界面。每个程序界面是由窗体(Form) 和一些必要的控件元素(Control) 构成的。由于VB属于面向对象编程,所以一般将窗体与控件都称为对象。
需要先了解一下三个基本概念:对象的属性、方法和事件。
属性:指对象(窗体,控件)的大小、颜色、方位等一系列外观或内部构造的特征。
方法:指对象(窗体,控件)所进行的操作。
事件:指对象(窗体,控件)对外部条件的响应。
现今的Windows视窗操作系统,与以前Dos最显著的区别就是其拥有一个为用户所能接受的图形界面。在这个可视化的图形界面中,户能方便地使用多个程序,而这一切就象在针对一个个窗口进行操作。
你可以这样做,设置窗体的TopMost 属性为真!
Me.TopMost = True
Form.TopMost 属性
获取或设置一个值,指示该窗体是否应显示为最顶层窗体。