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

VbÀÈçºÎÉèÖÃÎı¾µÄ×ÖÌåÒÔ¼°ÑÕÉ«~~

VbÀÈçºÎÉèÖÃÎı¾µÄ×ÖÌåÒÔ¼°ÑÕɫĨ£¿×îºÃÓÐÔ´´úÂëŶ~ÎÒÓõÄÊÇ2008°æµÄ±à³ÌÈí¼þ¡£¡£¡£¡£
Çë´ó¼Ò¶à¶à°ï棺£©
Vb.net£¿²»¶®£¬VB6»¹¶®µã¡­¡­

¾ÍÊÇVB6.0 ²»ÊÇ¡£net

VB code:
Private Sub Form_Load()
Text1.FontName = "ËÎÌå"
Text1.FontSize = 12
Text1.FontItalic = True
End Sub



ÒýÓÃ
VB codePrivateSub Form_Load()
Text1.FontName="ËÎÌå"
Text1.FontSize=12
Text1.FontItalic=TrueEnd Sub


UPÀÏÕÅ

ÒýÓÃ
VbÀÈçºÎÉèÖÃÎı¾µÄ×ÖÌåÒÔ¼°ÑÕɫĨ£¿×îºÃÓÐÔ´´úÂëŶ~ÎÒÓõÄÊÇ2008°æµÄ±à³ÌÈí¼þ¡£¡£¡£¡£
Çë´ó¼Ò¶à¶à°ï棺£©


VS2008£¿ÖеÄVB£¿
¾ÍÊÇVB.NET

Text1.ForeColor = vbRed'ÑÕÉ«

ÎÒÏëÖªµÀ2008°æµÄŶ  ºÇºÇ лл´ó¼ÒÀ²



vs2008ÀïµÄVB¾ÍÊÇVB.NET£¬²»ÊÇVB6£¡


Ïà¹ØÎÊ´ð£º

¡¾¼±Çó¡¿VBÖÐʹÓÃWScriptµ÷ÓÃÍⲿÃüÁî - VB / »ù´¡Àà

ÔÚÏÂÊÇvbµÄÐÂÊÖ£¬Ïëд¶Î³ÌÐò£¬ÔÚvbÖУ¬Ê¹ÓÃwscriptµ÷ÓÃһЩÍⲿµÄÃüÁµ«ÊdzÌÐòÖ´ÐÐÒ»Ö±ÓдíÎó£¬Çë¸÷λ¸ßÊÖ°ïæ½â´ðÏ£¬Ð»Ð»¡£
´úÂëÈçÏ£º
VB code:

Private Function getFile_CMD(filename, filepath) As Bo ......

Çóvb´óϺ¿´Ò»Ï°¡£¡£¡£¡

Private Sub Form_Load()
  recs = Adodc1.Recordset.RecordCount 'Çóµ±Ç°¼Ç¼Êý
  If recs > 0 Then 'ÒÑÓп¼Éú
  Adodc1.Recordset.MoveLast 'ÒÆµ½×îºóÒ»Ìõ¼Ç¼
  num = V ......

ÓйØvbµÄÎÊÌâ - VB / »ù´¡Àà

Êý¾Ý¿âÃ²ËÆÒѾ­Á¬½ÓÉÏÁËvb£¬£¬¿ÉÊÇΪʲôÊý¾Ý¿âÉϵÄÊý¾Ý²»ÄÜÏÔʾÔÚ¿ò±íÖÐÄ󣿣¿£¿
¾ßÌåµÄ´úÂ룿

ÎÞÂëÎÞÕæÏ࣡

Äã°ÑÀºÇò±§ÔÚ»³À¾ÍÄÜԶͶµÃ3·Ö£¿

Âé·³¸÷λ´óϺÁ˰¡¡£¡£¡£
Private Sub Comm1_Click()
& ......

vbµÄÀàÖÐʹÓÃ×Ô¶¨ÒåÀàÐÍÊý¾ÝµÄÎÊÌâ - VB / »ù´¡Àà


ÎÒÔÚÀàÖÐÓÐÒ»¸öº¯Êý
Public Function DownloadAdditionalSite(SiteName As siteconfig, Directory As String, ymd As String) As Boolean
siteconfigÊÇÎÒ×Ô¶¨ÒåÀàÐ͵ÄÊý¾Ý£¬ÎªÊ²Ã´»áÌáʾ¡°Ö»ÓÐÔÚ¹«¹²¶ÔÏóÄ£¿éÖж ......

vbȱÉÙ¶ÔÏó - VB / »ù´¡Àà

VB code:
Private Sub Command4_Click()
Dim TempFile As Long
Dim LoadBytes() As Byte
Dim txtPath As String
TempFile = FreeFile
txtPath = c:
Open txtPath \ domain.txt For Binary ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ