怎么通过程序,获取其他程序中的所有的LABEL的值。
自己写了一个其他程序的例子:
VERSION 5.00
Begin VB.Form Form1
BorderStyle = 0 'None
Caption = "alarm"
ClientHeight = 3030
ClientLeft = 0
ClientTop = 0
ClientWidth = 4725
LinkTopic = "Form1"
ScaleHeight = 3030
ScaleWidth = 4725
ShowInTaskbar = 0 'False
StartUpPosition = 3 '窗口缺省
Begin VB.PictureBox Picture2
Height = 2415
Left = 0
ScaleHeight = 2355
ScaleWidth = 4635
TabIndex = 1
Top = 600
Width = 4695
Begin VB.Frame Frame1
Caption = "Frame1"
Height = 2055
Left = 2040
TabIndex = 6
Top = 120
Width = 2535
End
Begin VB.Label Label3
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Label3Label3Label3"
Height = 180
Left = 120
TabIndex = 4
Top = 1560
Width = 1620
End
Begin VB.Label Label1
Caption = "Label1Label"
Height = 780
Left = 120
TabIndex = 2
Top = 240
Width = 2580
End
End
Begin VB.PictureBox Picture1
BackColor = &H0000FFFF&
Height = 615
Left = 0
ScaleHeight = 555
ScaleWidth = 4635
TabIndex = 0
Top = 0
Width = 4695
Begin VB.CommandButton Command1
Caption = "关"
Height = 375
Left = 4200
TabIndex = 5
Top = 120
Width = 375
End
Begin VB.Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "LABEL2LABEL2"
Height = 180
Left = 240
TabIndex = 3
Top = 240
Width = 1080
End
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option ExplicitPrivate Sub Command1_Click()
Unload Me
End Sub
自己写了一个其他程序的例子:
VERSION 5.00
Begin VB.Form Form1
BorderStyle = 0 'None
Caption = "alarm"
ClientHeight = 3030
ClientLeft = 0
ClientTop = 0
ClientWidth = 4725
LinkTopic = "Form1"
ScaleHeight = 3030
ScaleWidth = 4725
ShowInTaskbar = 0 'False
StartUpPosition = 3 '窗口缺省
Begin VB.PictureBox Picture2
Height = 2415
Left = 0
ScaleHeight = 2355
ScaleWidth = 4635
TabIndex = 1
Top = 600
Width = 4695
Begin VB.Frame Frame1
Caption = "Frame1"
Height = 2055
Left = 2040
TabIndex = 6
Top = 120
Width = 2535
End
Begin VB.Label Label3
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Label3Label3Label3"
Height = 180
Left = 120
TabIndex = 4
Top = 1560
Width = 1620
End
Begin VB.Label Label1
Caption = "Label1Label"
Height = 780
Left = 120
TabIndex = 2
Top = 240
Width = 2580
End
End
Begin VB.PictureBox Picture1
BackColor = &H0000FFFF&
Height = 615
Left = 0
ScaleHeight = 555
ScaleWidth = 4635
TabIndex = 0
Top = 0
Width = 4695
Begin VB.CommandButton Command1
Caption = "关"
Height = 375
Left = 4200
TabIndex = 5
Top = 120
Width = 375
End
Begin VB.Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "LABEL2LABEL2"
Height = 180
Left = 240
TabIndex = 3
Top = 240
Width = 1080
End
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option ExplicitPrivate Sub Command1_Click()
Unload Me
End Sub
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货