VB 属性的使用无效
Private Sub DataList1_Click()
If DataList1.Text = "" Then
Lbl_EmpId = ""
Lbl_EmpName = ""
Lbl_Birth = ""
Lbl_Sex = ""
Lbl_Political_Party = ""
Lbl_Family_Place = ""
Lbl_OfficePhone = ""
Lbl_Address = ""
Lbl_Mobile = ""
Lbl_College = ""
Lbl_Major = ""
Lbl_Union = ""
Lbl_Cost = ""
Lbl_part = ""
Lbl_Title = ""
Exit Sub
End If
MyEmp.GetInfo (DataList1.Text)
Lbl_EmpId = MyEmp.EmpId
Lbl_EmpName = MyEmp.EmpName
Lbl_Birth = MyEmp.Birth
Lbl_Sex = MyEmp.Sex
Lbl_Political_Party = MyEmp.Political_Party
Lbl_Family_Place = MyEmp.Family_Place
Lbl_OfficePhone = MyEmp.Office_phone
Lbl_Address = MyEmp.Address
Lbl_Mobile = MyEmp.Mobile
Lbl_College = MyEmp.College
Lbl_Major = MyEmp.Major
Lbl_Union = MyEmp.Union
Lbl_Cost = MyEmp.Cost
Lbl_part = MyPart.GetName(MyEmp.DepId)
Lbl_Title = MyEmp.title
End Sub
Private Sub Form_Load()
Lbl_EmpId = ""
Lbl_EmpName = ""
Lbl_Birth = ""
Lbl_Sex = ""
Lbl_Political_Party = ""
Lbl_Family_Place = ""
Lbl_OfficePhone = ""
Lbl_Addr
相关问答：
Printer.ScaleMode = 6
6表示毫米
Printer.PaperSize = vbPRPSA4
'初始坐标
x = 1
y = 4
'最大的线筐
Printer.DrawStyle = 0
Printer.Line (x, y)-(x + 132.5, y) ......
我用VB调用Word 嵌入VB窗体中(这些都是正常)
然后在桌面打开另一个word a.doc
现在问题出来了.....我关闭VB窗体,之前的那个word也正常关闭了
接下来闭关a.doc 会出现问题
这个要怎� ......
我在我电脑(屏幕比较大)设计一个界面,但是在屏幕比较小的电脑上测试时,发现按钮不会随着屏幕大小而自动变大小.
要怎么设?
Me.Height = Screen.Height * 0.6
Me.Width = Screen.Width * 0.6
VB cod ......
请教一下：我用vb写了一个调用Illustrator的测试程序，代码很简单：Private Sub Command1_Click()
Dim app As New Illustrator.Application
Dim doc As Illustrator.Document
Dim thislayer As Illustrator.Layer ......
C# code:
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
Private Type GUID
Data1 As Long
......
