Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö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


Ïà¹ØÎÊ´ð£º

ΪʲôCдDLLÎļþC¡¢PBÄܵ÷ÓÃVB²»Äܵ÷ÓÃ

ΪʲôCдµÄDLLÎļþC¡¢PBÄܵ÷ÓÃVB²»Äܵ÷Óã¿
VBÀïΪʲôÓеÄDLLÖ±½Óͨ¹ýÒýÓÿÉÒÔʹÓã¿ÓеÄÐèҪͨ¹ýdeclareÉêÃ÷Íⲿº¯Êý£¿ÕâЩDLLÓÐʲô²î±ð£¿

1¡¢ÎªÊ²Ã´PBÄÜͨ¹ýDECLAREÉùÃ÷¶øVB²»ÐУ¿
2¡¢Èç¹ûÕâ¸ödllÖÐµÄ ......

asp.net(vb)ÎÊÌâ

login.aspx.vb:

    Public ReadOnly Property nameT() As String
        Get
            Return TextBox1.Text
    &nb ......

VB Îı¾¿ò

×Ö·û´® m1="E"
×Ö·û´® m2="F"

Èç¹ûtext1.text=m1+m2µÄ»°  Ôòtext1ÏÔʾµÄÊÇ EF

µ«ÊÇÈç¹û
×Ö·û´® m1="E"
×Ö·û´® m2="6"
Èç¹ûtext1.text=m1+m ......

ÇóÖú£¡£¡vb³ÌÐò

Éè¼ÆÒ»¸öÊó±ê»­Í¼³ÌÐò£¬½çÃæÉè¼Æ£¬´°ÌåÖÐÌí¼ÓÒ»¸öpicturebox¿Ø¼þ£¬Ò»¸öcombobox×éºÏÏÂÀ­¿ò¡¢Ò»¸öͨÓöԻ°¿òÓëÁ½¸öÃüÁî¿ò£¬ÒÔÏÂÊÇÎҵijÌÐò£¬µ«ÊÇÎÒÔËÐеÄʱºò×ÜÊÇÌáʾ±äÁ¿Î´¶¨Ò壬»¹Íû¸÷λ´óÏÀ°ïæָÕýÄÄÀï³öÁËÎÊÌâ ......

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

±£´æ³öµÄExcelÊý¾ÝÎļþ£¬ÏëÔÚ³ÌÐòÖоÍת»¯³ÉÊýÖµÀàÐÍ
Äܹ»ÔÚ´ò¿ªExcelÎļþºó£¬
Äܹ»Ö±½ÓÀûÓÃÊý¾Ý»­Í¼£¬¶ø²»ÐèÒªÔÙ´Îת»¯Êý¾ÝÀàÐÍ
³ÌÐòÖеÄÊý¾ÝÊÇ´æ·ÅÔÚ¶þάÊý×éÀïµÄ£¬È»ºóÔÙ±£´æÔÚExcelÖÐ
Çë½Ì´óÏÀÃÇ£¬¸ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ