1,添加一个模块,在模块里声明一个全局公共变量N;
公司主营业务:网站设计制作、网站设计、移动网站开发等业务。帮助企业客户真正实现互联网宣传,提高企业的竞争能力。创新互联建站是一支青春激扬、勤奋敬业、活力青春激扬、勤奋敬业、活力澎湃、和谐高效的团队。公司秉承以“开放、自由、严谨、自律”为核心的企业文化,感谢他们对我们的高要求,感谢他们从不同领域给我们带来的挑战,让我们激情的团队有机会用头脑与智慧不断的给客户带来惊喜。创新互联建站推出加格达奇免费做网站回馈大家。
2,在控件的调用窗体代码段里,把此控件名称给这个全局公共变量N赋值;
3,在窗体的Load()事件里,写代码: Me.Text = N。
在类中获得其他窗体的值。可以使用。
窗体名称.控件名称.Text,如:Form1.TextBox1.Text。即可取到Form1窗体下的TextBox1控件的文本。
一般属性声明都是这样的啊。
dim _name as String ‘您的这里没必要使用public
Property Name() As String
Get
Return _name
End Get
Set(ByVal value As String)
_name = value
End Set
End Property
Me.Text
例如:MsgBox(Me.Text)
或者:窗体名.Text
例如: MsgBox(Form1.Text)
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim myAssembly As System.Reflection.Assembly = System.Reflection.Assembly.GetExecutingAssembly()
Dim TheTypes As Type() = myAssembly.GetTypes()
Dim myType As Type
For Each myType In TheTypes
If myType.BaseType.ToString = "System.Windows.Forms.Form" Then
ListBox1.Items.Add(myType.Name)
End If
Next
End Sub
非常简单.
先用 GetForegroundWindow 来获取当前活动窗口的句柄,然后用 GetWindowText 来获得这个句柄的标题..就可以了,
我给你写了个代码 你运行看下就明白了..
在窗体上创建一个timer控件(用来随时检测活动窗口的标题),然后复制下面的代码 运行 就看到了...哥们,最好追加点分哦~~ o(∩_∩)o...~~
Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Private Declare Function GetForegroundWindow Lib "user32" () As Long
Private Sub Form_Load()
Timer1.Interval = 500
Timer1.Enabled = True
Me.Width = Screen.Width / 2
End Sub
Private Sub Timer1_Timer()
Dim hd As Long, tt As String
tt = Space(255)
hd = GetForegroundWindow
GetWindowText hd, tt, 256
Cls
Print "活动窗口标题是 " tt
End Sub
先选中要改名的窗体,在属性里找Caption属性,一般第一个窗体都默认Form1,然后想改成什么就改成什么。
或者在代码中你想改窗体名的地方,比如
Private Sub Form_Load()
formname.caption=‘窗体名’
End Sub
formname 是窗体这个实例的名字,用于引用该实例。
窗体名 是显示在这个窗体最上面的那个名字
网站栏目:vb.net得到窗体名,vb的窗体文件
网页链接:https://www.cdcxhl.com/article2/dsiphic.html
成都网站建设公司_创新互联,为您提供做网站、企业网站制作、搜索引擎优化、云服务器、、服务器托管
声明:本网站发布的内容(图片、视频和文字)以用户投稿、用户转载内容为主,如果涉及侵权请尽快告知,我们将会在第一时间删除。文章观点不代表本网站立场,如需处理请联系客服。电话:028-86922220;邮箱:631063699@qq.com。内容未经允许不得转载,或转载时需注明来源: 创新互联