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

¹ØÓÚVBÓÃCDO·¢ËÍÓʼþ

ÎÒÓÃCDO·¢ËÍÓʼþ£¬µ«ÊǺóÀ´·¢ÏÖ·¢ËÍÒ»µã¶¼²»Îȶ¨£¬×î²îµÄÇé¿öÊÇ·¢ËÍ10´ÎÖ»ÓÐ5´ÎÊdzɹ¦µÄ¡£ÇëÎÊÊÇʲôԭÒòÄØ¡£
»òÕßÊÇ»¹ÓÐʲôºÃµÄ·½·¨¿ÉÒÔ±£Ö¤·¢ËÍÓʼþ¿ÉÒÔ±£Ö¤Îȶ¨ÄØ£¿£¨²»Òª°²×°ÆäËû¿Ø¼þµÄÇé¿öÏ£¬¼´ÆäËûÓû§Ê¹ÓõÄʱºò²»ÐèÒª°²×°ÆäËû¿Ø¼þ£©

ÒÔÏÂÊÇÎҵĴúÂë
VB code:

Dim objEmail As Object
Dim strName As String

Private Sub Command2_Click()
Open "D:\Îʾíµ÷²é.txt" For Append As #1
txtBody.Text = txtAn1 & "¹þ" & txtAn2 & "¹þ" & txtAn3 & "¹þ" & txtAn4 & "¹þ" & txtAn5 & "¹þ" & txtAn6 & "¹þ" & txtAn7 & "¹þ" & txtAn8 & "¹þ" & txtAn9
Print #1, txtBody.Text
Print #1,
Close #1
MsgBox "Îʾí½á¹ûÒѾ­±£´æÔÚÄúµÄDÅÌ£¬ÎļþÃûÊÇ¡°Îʾíµ÷²é.txt¡±"
End
End Sub

Private Sub Form_Load()
strName = "http://schemas.microsoft.com/cdo/configuration/"
Set objEmail = CreateObject("CDO.Message")
End Sub

Private Sub Command1_Click()
Me.Caption = "Sending..."
Command1.Enabled = False
txtBody.Text = txtAn1 & "¹þ" & txtAn2 & "¹þ" & txtAn3 & "¹þ" & txtAn4 & "¹þ" & txtAn5 & "¹þ" & txtAn6 & "¹þ" & txtAn7 & "¹þ" & txtAn8 &


Ïà¹ØÎÊ´ð£º

vb Å£Âð - Web ¿ª·¢ / vbScript

vbÊDz»ÊǺÜÅ£°¡ ÔõôÄÇô¶àµÄ²¡¶¾¶¼ÊÇvb×öµÄ°¡ c#Ðв»ÐУ¿
c#ÔÚXPÔËÐв»ÁË£¬³ý·ÇÈñðÈËÏÈ×°ÉÏ.net.
VBÏà¶ÔÓÚC,C++,ASMµÈµÈ£¬¾ÖÏÞÐÔ´ó¶àÁË¡£

±ðÔÙ˵ʲôÓïÑÔ²»ÈçʲôÓïÑԵϰÁË£¬Ö»ÓÐÄã²»»áÓûòÓÃ×Ų»Ë³ÊÖµÄÓ ......

ÇóÖú£ºVBµ÷Óö¯Ì¬¿âÎÊÌâ - VB / »ù´¡Àà

¸÷λ´óϺ£º
  ÎÒÊǸÕѧVB£¬ÏÖÔÚÏëÓÃVBµ÷ÓÃÒ»¸ö¶¯Ì¬¿â£¬¶¯Ì¬¿âÀïÃæÓкܶຯÊý¡£ÎÒÖªµÀʹÓÃVBµ÷Óö¯Ì¬¿âµ÷Óú¯Êý£¬ÐèÒª½«Òªµ÷Óõĺ¯ÊýÔÚ³ÌÐòÖÐÉùÃ÷¼´¿É£¬µ«ÊÇÀïÃæÓкܶຯÊý£¬²»»áÿһ¸öº¯Êý¶¼ÒªÉùÃ÷°É¡£Çë¸ ......

vb³¬¼òµ¥form.showµÄÎÊÌâ - VB / ·Ç¼¼ÊõÀà

ΪʲôÎÒÓÃform.showºÍform.hide¶à´ÎÁ¬½ÓÁËÁ½¸ö´°¿ÚÖ»ÄÜ»¥»»Á´½ÓÁ½´Î°¡£¿
´úÂë¿´¿´
ÕÕµÀÀíform.show û´ÎÊýÏÞ¶¨µÄ°É

ÎÒÒ²¿ì·èÁË¡£
Â¥Ö÷ÖªµÀÔõô·¢Ìùô£¿

ÒýÓÃ
ÎÒÒ²¿ì·èÁË¡£
Â¥Ö÷ÖªµÀÔõô·¢Ìùô£¿
Â¥Ö÷Ò² ......

¹ØÓÚvbÓïÒô¿ª·¢µÄÎÊÌ⣿ - VB / ¶àýÌå

ÔÚÍøÉÏÏÂÔØÁËspeechsdk51LangPack°²×°ºó£¬ÓÃvb¿ÉÒÔ·¢Òô£¨ÖÐÎÄ£©£¬ÀïÃæÓиögirl xiaokunµÄ·¢Òô£¬¶ÔÖÐÎĺܺÃÌý¡£µ«ÊÇÕâ¸öspeechsdk51LangPackÓÐ100¶àM£¬ÎÒµÄvbÏîÄ¿´ò°üºó£¬Ôõô²Å¿ÉÒÔ×°µ½ÆäËû»ú×ÓÉÏÒ²ÄÜÓã¿£¿×ܲ»ÄÜÿ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ