Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

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


Ïà¹ØÎÊ´ð£º

VB ±£´æExcelÎļþÎÊÌâ

±£´æ³öµÄExcelÊý¾ÝÎļþ£¬ÏëÔÚ³ÌÐòÖоÍת»¯³ÉÊýÖµÀàÐÍ
Äܹ»ÔÚ´ò¿ªExcelÎļþºó£¬
Äܹ»Ö±½ÓÀûÓÃÊý¾Ý»­Í¼£¬¶ø²»ÐèÒªÔÙ´Îת»¯Êý¾ÝÀàÐÍ
³ÌÐòÖеÄÊý¾ÝÊÇ´æ·ÅÔÚ¶þάÊý×éÀïµÄ£¬È»ºóÔÙ±£´æÔÚExcelÖÐ
Çë½Ì´óÏÀÃÇ£¬¸ ......

VB±êÌâÀ¸ ¶¯Ì¬ÏÔʾ

ÎÒÔÚ´°ÌåÕý³£ÔËÐеÄÇé¿öÏ ±êÌâÀ¸ÉÏ¿ÉÒÔ¶¯Ì¬ÏÔʾÊýÖµ

¿ÉÊǵã»÷×îС»¯°´Å¥µÄºó £¬ÔÚÈÎÎñÀ¸ÉϵıêÌâÉϾͲ»±äÁË£¿

Ôõô°ì 

±ðÕÛÌÚÕâЩ»¨¼Ü×Ó£¬Ã»ÒâÒå

²»»á°É£¿
VB code:
Private Su ......

VB------->C#

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
......

¹ØÓÚVBÖеÄÁбí¿òµÄÎÊÌâ

Ò»µÀVBС³ÌÐò
ÓÐÁ½¸öÁбí¿òlist1¡¢ list2 ¡£list1Öгõʼ»¯ÓÐ15¸ö²»Í¬µÄ×Öĸ£¬¶ølist2ÖÐÊÇ¿Õ°×µÄ »¹ÓÐÒ»¸ö°´Å¥command1,Ñ¡ÖÐlist1ÖеÄÈÎÒâ¶à¸öÏîÄ¿ È»ºóµã»÷°´Å¥command1,ÔòÔÚlist2ÖÐÏÔʾlist1Öб»Ñ¡ÖеÄÏîÄ¿¡£µ±¶ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ