在VB.NET中怎么才能使用两个窗体

lianny 2004-04-17 12:16:14

我先引用了一个窗体，在第一个窗体中添加button按钮，点击这个按钮怎么才能把第一个窗体隐藏，而显示第二个窗体。
谢谢

...全文

133 4 打赏收藏转发到动态举报

写回复

用AI写文章

4 条回复

切换为时间正序

请发表友善的回复…

发表回复

follyfour 2004-04-17

打赏
举报

http://www.csdn.net/develop/author/netauthor/Latitude/
http://www.csdn.net/develop/read_article.asp?id=22121

Ninputer 2004-04-17

打赏
举报

完全教程：
http://expert.csdn.net/Expert/TopicView1.asp?id=2792547

shixianyong 2004-04-17

打赏
举报

Button事件中写:

Dim newFrmmain As New Form2
newFrmmain.Show()
Me.Hide()

wolftop 2004-04-17

打赏
举报

'Form1中
Dim f2 As Form2 = New Form2(Me)
f2.Show()

'Form2中
Private form1handl As Form
Private Function Form2(ByVal f As Form) As Public
Me.form1handl=f
End Function

'Button事件中
Me.form1handl.visible=False

在码农的生活中，很多级码农都有这样的经历，会被一个小小的技术问题拦住，然后进度跟不上了，被老板XXXX一大通了。心情不爽了。好吧，这个曾经是我遇到拦路虎之一。但事实上不是什么大技术。技术就是一层纸，破了就破了。这是一个关于如何跨窗体操作控件或过程的一个例子。比如，你想用窗体A的按键来执行窗体B的文本框变色。 Imports System Imports System.Threading Imports System.Text Public Class Form1 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load CheckForIllegalCrossThreadCalls = False '不写这行，会出错，不允许线程的数据写到TextBox1.Text 中去。 Form2.Show() End Sub Private Sub form1_FormClosing(sender As Object, e As EventArgs) Handles Me.FormClosing ' If runThread.IsAlive = True Then runThread.Abort() End Sub Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click '用的是委托方式 Me.Invoke(New MethodInvoker(AddressOf THREAD2)) End Sub Private Sub THREAD2() Static j As Integer j = j + 1 TextBox1.Text = " 这是 [线程] 操作" & vbCrLf & _ " Button2被点了: " & j & " 次" & vbCrLf & "要求是from2.textbox.text= textbox1.text 。[问题]但为什么不能成功显示呢？" End Sub Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged Form2.TextBox1.Text = TextBox1.Text End Sub Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click Static j As Integer j = j + 1 TextBox1.Text = " 这是 [非线程] 操作" & vbCrLf & _ "Button3 点击了: " & j & " 次" & vbCrLf & _ "要求是from2.textbox.text= textbox1.text，可以成功显示，这个是对的。" End Sub End Class

强调：vb.net的，不是VB 本压缩包是一个vb.net工程，介绍两种非常逼真的透明方法，代码注释很多 1.一种是设置窗体属性，很简单，但是透明后，可以接触到窗口矩形区域下面的地方，比如有一个文件，可以直接双击打开，可以说操作是不透明的。把窗口想象成木框+玻璃，这种方法相当于只有木框，没玻璃。当然，控件还在，而且完全不透明。 2.还有一种透明方法是截取被窗口矩形覆盖的区域，将其获取为一个bitmap然后赋值给窗口当背景！但是直接赋值也不行，里面有个小技巧。这种方法比直接设置opcity效果强太多了，几乎达到真正透明了！只剩控件！但是和第一种方法比起来，矩形是一个真正的矩形，操作是不透明。还用木框和玻璃比喻，相当于有木框也有玻璃，被窗口覆盖的区域只能看到，但点不到！最后：我把基本原理都介绍了，有幸搜到这里的朋友即使分不够也有方向了。东西很简单，但我介绍的很详细，里面代码和演示更直观，所以要了6分。谢谢。

内容索引:VB源码,界面编程,语言切换　　实现多语言的窗体切换实例，可以切换中文、英文、德语等多国家语言，这仅是一个演示程序，除了切换语言、创建本地化窗体、更改区域之外并不能完成其它任何功能。

一个VB.NET2005编写的图片控制操作的源代码控件，主要功能有支持图片放大缩小、支持图片色彩反转、自适应窗体大小、返回实际像素、支持图片多种方式旋转和翻转，支持图片两种模式漫游。

我们需要创建两个窗体，一个是发送端（Form1窗体），另外一个是接收端（Form2窗体）　　详细操作步骤如下：　　选择Form1窗体，在Form1窗体中添加如下控件：　　Label1、Label2、Label3、 Button1控件、OpenFileDialog1控件　　控件属性设置如下：　　　　Label1 属性Text 已经发送的文件长度: 　　Label2 属性Text 为空　　Label3 属性Text 字节数　　Button1 属性Text 发送文件　　　　最终界面效果如下：选择Form2窗体，在Form2窗体中添加如下控件：　　Label1、Label2、TextBox1 、Button1控件、OpenFileDialog1控件、SaveFileDialog1控件　　控件属性设置如下：　　Label1 属性Text 已接收的文件：　　Label2 属性Text 为空　　TextBox1 属性Multiline 　　属性ScrollBars True 　　Both 　　Button1 属性Text 接收文件并保存　　最终界面效果如下

16,554

社区成员

110,527

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章