快上网专注成都网站设计 成都网站制作 成都网站建设
成都网站建设公司服务热线:028-86922220

网站建设知识

十年网站开发经验 + 多家企业客户 + 靠谱的建站团队

量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决

vb.net弹出框控件,vb打开对话框控件

vb.net在自制的窗体控件中弹出一个窗口再返回一个值

先设计好Form1和Form2。在

成都创新互联是一家集网站建设,桥东企业网站建设,桥东品牌网站建设,网站定制,桥东网站建设报价,网络营销,网络优化,桥东网站推广为一体的创新建站企业,帮助传统企业提升企业形象加强企业竞争力。可充分满足这一群体相比中小企业更为丰富、高端、多元的互联网需求。同时我们时刻保持专业、时尚、前沿,时刻以成就客户成长自我,坚持不断学习、思考、沉淀、净化自己,让我们为更多的企业打造出实用型网站。

Private Class Form2中输入

Public Event ChangeValue(ByVal value As String) '是string还是其它的看你需要了

在Form2的Closed事件:

Private Sub Form2_Closed() Handles Me.Closed

RaiseEvent ChangeValue(TextBox1.Text)'如果是数值类型的话用下面这个:

'RaiseEvent ChangeValue(Val(TextBox1.Text))

End Sub

在Form中定义x:

Dim x As String '是String还是数值类型看你需要了,要和上面的统一

在Form1中写一个处理值的函数。值哪来?别管它

Private Sub ProcessValue(ByVal value As String) '记得统一

x = value

End Sub

在Form1中Button1的Click事件中:

Private Sub Button1_Click() Handles Button1.Click

Dim f2 As New Form2

AddHandler f2.ChangeValue,AddressOf ProcessValue

f2.Show()

End Sub

楼下的更简单啦

VB.net怎么弹出如下类似的对话框(看图)?

可以利用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

VB.net怎么弹出文件夹路径选择框

选择文件夹  在工具箱 - 对话框 里选择 FolderBrowserDialog 添加 到设计器中

然后 代码写在  按钮事件里

FolderBrowserDialog1.ShowDialog()

textbox1.text =FolderBrowserDialog1.SelectedPath

选择文件 在工具箱 - 对话框 里选择 OpenFileDialog

把 OpenFileDialog1.ShowDialog()

TextBox1.Text = OpenFileDialog1.FileName

写到按钮事件下

如图

点击按钮会弹出 通用对话框  选择好路径后 确定 ,编辑框里就会显示选择的路径


网站栏目:vb.net弹出框控件,vb打开对话框控件
转载源于:http://6mz.cn/article/hspehi.html

其他资讯