VBÖÐlistboxÎÊÌâ
ÔÚlistboxÖÐÓÐ3¸öÃû×Ö£º
ÕÅÈý
ÀîËÄ
ÍõÎå
ÆäÖÐÕÅÈýµÄItemDataÊÇ1£¬ÀîËÄÊÇ2£¬ÍõÎåÊÇ3£¬ËûÃÇÔÚÊý¾Ý¿âÖеÄidÒ²ÊǶÔÓ¦µÄ1£¬2£¬3£¬ÎÒµÄÒâ˼¾ÍÊǵã»÷listboxÖеÄÕÅÈý£¬¾ÍÄÜ´ÓÊý¾Ý¿âÖиù¾Ýid=1°ÑÆäËûÐÅÏ¢ËѳöÀ´£¬ÒÔÏÂÎÒ×öÁËÒ»¶Î³ÌÐò£¬ÏµÍ³±¨´íÊDzÎÊý²»¿ÉÑ¡
Private Sub List1_Click()
Dim conn As New ADODB.Connection, rs As New ADODB.Recordset
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & appdisk & "gp.dll;Persist Security Info=False;Jet OLEDB:Database Password="
strSQL = "SELECT nr,time from falv where id = " & List1.ItemData & " "
rs.Open strSQL, conn, 3, 3
Form2.RichTextBox1.Text = rs!nr & ""
rs.Close
conn.Close
Form2.Show 0.1
End Sub
ÇëÎÊһϸÃÔõôŪ£¬Ð»Ð»ÁË
Ó¦¸ÃÓà ListIndex
¶ø²»ÊÇ ItemData£¨£©
{{
Ïà¹ØÎÊ´ð£º
vbÊDz»ÊǺÜÅ£°¡ ÔõôÄÇô¶àµÄ²¡¶¾¶¼ÊÇvb×öµÄ°¡ c#Ðв»ÐУ¿
c#ÔÚXPÔËÐв»ÁË£¬³ý·ÇÈñðÈËÏÈ×°ÉÏ.net.
VBÏà¶ÔÓÚC,C++,ASMµÈµÈ£¬¾ÖÏÞÐÔ´ó¶àÁË¡£
±ðÔÙ˵ʲôÓïÑÔ²»ÈçʲôÓïÑԵϰÁË£¬Ö»ÓÐÄã²»»áÓûòÓÃ×Ų»Ë³ÊÖµÄÓ ......
¸÷λ´óϺ£º
ÎÒÊǸÕѧVB£¬ÏÖÔÚÏëÓÃVBµ÷ÓÃÒ»¸ö¶¯Ì¬¿â£¬¶¯Ì¬¿âÀïÃæÓкܶຯÊý¡£ÎÒÖªµÀʹÓÃVBµ÷Óö¯Ì¬¿âµ÷Óú¯Êý£¬ÐèÒª½«Òªµ÷Óõĺ¯ÊýÔÚ³ÌÐòÖÐÉùÃ÷¼´¿É£¬µ«ÊÇÀïÃæÓкܶຯÊý£¬²»»áÿһ¸öº¯Êý¶¼ÒªÉùÃ÷°É¡£Çë¸ ......
ÓÃvc±àдµÄdllÔÚdebugģʽºÍreleaseģʽÏÂÆô¶¯vbµÄexe³ÌÐòµ÷ÓÃvcµÄdll¿ÉÒԵõ½ÕýÈ·½á¹û£¬µ«ÊÇÈç¹ûÖ±½ÓË«»÷vbµÄexe³ÌÐòµ÷ÓÃdll±¨´í£¬ÔÚdllÄÚ²¿Ìí¼Ómessageboxºó·¢ÏÖÖ»ÒªÔÚº¯ÊýÄÚ²¿ÉùÃ÷std::stringÀàÐ͵ıäÁ¿¾Í»á³öÏÖÄ ......
ÔÚÍøÉÏÏÂÔØÁËspeechsdk51LangPack°²×°ºó£¬ÓÃvb¿ÉÒÔ·¢Òô£¨ÖÐÎÄ£©£¬ÀïÃæÓиögirl xiaokunµÄ·¢Òô£¬¶ÔÖÐÎĺܺÃÌý¡£µ«ÊÇÕâ¸öspeechsdk51LangPackÓÐ100¶àM£¬ÎÒµÄvbÏîÄ¿´ò°üºó£¬Ôõô²Å¿ÉÒÔ×°µ½ÆäËû»ú×ÓÉÏÒ²ÄÜÓã¿£¿×ܲ»ÄÜÿ ......