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 As #TempFile
ReDim LoadBytes(1 To LOF(TempFile)) As Byte
Get #TempFile, , LoadBytes
Close ......
ΪʲôÎÒÏëÑ»·×Ô¶¯·¢ËÍÓʼþµÄʱºò,¾ÍÖ»ÓеÚÒ»·âÄÜ×Ô¶¯·¢ËÍ,ÆäËüºóÃæµÄÓʼþ¶¼Ö»ÄÜ´´½¨,²»ÄÜ×Ô¶¯·¢ËÍ
Private Sub send_mail_Click() '·¢ËÍÓʼþ֪ͨ
Do While Not TDBG_Dept.EOF
If A>B Then
Dim olapp As Object
Dim oitem As Object
  ......
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 ......
ÔÚÍøÉÏÏÂÔØÁËspeechsdk51LangPack°²×°ºó£¬ÓÃvb¿ÉÒÔ·¢Òô£¨ÖÐÎÄ£©£¬ÀïÃæÓиögirl xiaokunµÄ·¢Òô£¬¶ÔÖÐÎĺܺÃÌý¡£µ«ÊÇÕâ¸öspeechsdk51LangPackÓÐ100¶àM£¬ÎÒµÄvbÏîÄ¿´ò°üºó£¬Ôõô²Å¿ÉÒÔ×°µ½ÆäËû»ú×ÓÉÏÒ²ÄÜÓã¿£¿×ܲ»ÄÜÿ¸öµçÄÔÉ϶¼È¥°²×°speechsdk51LangPackÕâ¸öÓïÑÔ°ü°É¡£ÔõôÄÜÈÃÓïÒôÒýÇæºÍÎÒµÄvb°ü´òÔÚÒ»Æð£¨²»ÄÜÌ«´ó£¬²»Äܰ ......
ÎÒÓÃVBµ÷ÓÃANSYSµÄÃüÁîÈçÏÂ
Private Sub Command1_Click()
x = Shell("C:\Program Files\Ansys Inc\v100\ANSYS\bin\intel\ansys100.exe -b -p ane3fl -i c:\X.mac -o c:\output.txt", vbMinimizedFocus) 'µ÷ÓÃANSYSµÄMultiphsicsÄ£¿é½øÐзÂÕæ¼ÆËã
Timer1.Enabled = True '¼¤»îTimer1¿Ø¼þ
End ......
±¾ÈËÏÖÔÚÄÜ×öһЩСÐÍµÄÆóÒµÍøÕ¾ ½üÀ´ÏëÌá¸ßϼ¼Êõ ÓиöÎÊÌâûŪ̫Çå aspÖÐÓõÄvbscript½Å±¾ÓïÑÔ»¹ÊÇVBÓïÑÔ ÏëÌá¸ß¼¼Êõ ´ó¼ÒÄܲ»ÄÜÌṩµã×ÊÁÏ. Íò·Ö¸Ðл!
ÊÇvbscript
ºÍVBû¹ØÏµ
http://www.w3school.com.cn
Õâ¸öÍøÕ¾ºÜ²»´í È¥¿´¿´°É
ASPÒ»°ãÓÃVBScript½Å±¾£¬Ò²¿ÉÒÔÓÃJscript½Å±¾ PerlScriptµÈµÈ ·ûºÏActiveSc ......