¹ØÓÚ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ÊDz»ÊǺÜÅ£°¡ ÔõôÄÇô¶àµÄ²¡¶¾¶¼ÊÇvb×öµÄ°¡ c#Ðв»ÐУ¿
c#ÔÚXPÔËÐв»ÁË£¬³ý·ÇÈñðÈËÏÈ×°ÉÏ.net.
VBÏà¶ÔÓÚC,C++,ASMµÈµÈ£¬¾ÖÏÞÐÔ´ó¶àÁË¡£
±ðÔÙ˵ʲôÓïÑÔ²»ÈçʲôÓïÑԵϰÁË£¬Ö»ÓÐÄã²»»áÓûòÓÃ×Ų»Ë³ÊÖµÄÓ ......
¸÷λ´óϺ£º
ÎÒÊǸÕѧVB£¬ÏÖÔÚÏëÓÃVBµ÷ÓÃÒ»¸ö¶¯Ì¬¿â£¬¶¯Ì¬¿âÀïÃæÓкܶຯÊý¡£ÎÒÖªµÀʹÓÃVBµ÷Óö¯Ì¬¿âµ÷Óú¯Êý£¬ÐèÒª½«Òªµ÷Óõĺ¯ÊýÔÚ³ÌÐòÖÐÉùÃ÷¼´¿É£¬µ«ÊÇÀïÃæÓкܶຯÊý£¬²»»áÿһ¸öº¯Êý¶¼ÒªÉùÃ÷°É¡£Çë¸ ......
ΪʲôÎÒÓÃform.showºÍform.hide¶à´ÎÁ¬½ÓÁËÁ½¸ö´°¿ÚÖ»ÄÜ»¥»»Á´½ÓÁ½´Î°¡£¿
´úÂë¿´¿´
ÕÕµÀÀíform.show û´ÎÊýÏÞ¶¨µÄ°É
ÎÒÒ²¿ì·èÁË¡£
Â¥Ö÷ÖªµÀÔõô·¢Ìùô£¿
ÒýÓÃ
ÎÒÒ²¿ì·èÁË¡£
Â¥Ö÷ÖªµÀÔõô·¢Ìùô£¿
Â¥Ö÷Ò² ......
ÔÚÍøÉÏÏÂÔØÁËspeechsdk51LangPack°²×°ºó£¬ÓÃvb¿ÉÒÔ·¢Òô£¨ÖÐÎÄ£©£¬ÀïÃæÓиögirl xiaokunµÄ·¢Òô£¬¶ÔÖÐÎĺܺÃÌý¡£µ«ÊÇÕâ¸öspeechsdk51LangPackÓÐ100¶àM£¬ÎÒµÄvbÏîÄ¿´ò°üºó£¬Ôõô²Å¿ÉÒÔ×°µ½ÆäËû»ú×ÓÉÏÒ²ÄÜÓã¿£¿×ܲ»ÄÜÿ ......