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

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µÄ³É¹¦Ö®Â· - À©³ä»°Ìâ / ¹²ÏíÈí¼þ£¨×ßÏòº£Í⣩

ÔÚvbÕâ±à³ÌÀïËÆºõÓкܶàµÄ¶«Î÷ÊÇÏàÁªÏµµÄ£¬ÎªÊ²Ã´ÓÐЩÈ˶ÔvbµÄ±à³ÌÃþ²»µ½Í·ÄÔ°¡£¡²¢ÇÒÓÐЩʺÜÈÝÒ׵쬵«ÊÇÈ´°ÑËüÃǵĴúÂë±ä³É¸´ÔÓ£¬Ò²È¥ÏëһЩ²»ÄÜʵÏֵĶ«Î÷°¡£¡




û·ÖÁË£¬Â¥Ö÷¶àÀ´µã·Ö£¡

À´½Óµã·Ö

......

VB µÄ PictureBOX ¿Ø¼þ»æÍ¼ÎÊÌâ - VB / ¿Ø¼þ

³õѧ£¬´óµ¨ÌáÎÊ£¬Çë¸ßÊÖ²»ÁߴͽÌ
1¡¢¹ö¶¯Ìõµã»÷Óë»æÍ¼°å£¨ÆÁÄ»,Piceure1£©µÄÒÆ¶¯ÎÊÌâÒѾ­½â¾ö¡£
  Picture1.Top = -VScroll1.Value + bcW '´¹Ö±Òƶ¯
  Picture1.Left = -HScroll1.Value + bcW ' ......

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


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

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

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

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

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

vb - VB / »ù´¡Àà

ÔÚvbÖÐÈçºÎ¶ÁÈ¡WordÄÚÈÝ(°üº¬±í¸ñ£¬Í¼Æ¬£¬µÈ£©
¾¹È»²»ÊÇzero¡£

²»ÖªµÀÔõôʵÏֵIJ»ÒªËµ»°

Õâ¸öÖ»ÄܶÁÎı¾,
VB code:
Private Sub Command1_Click()
Dim WordApp As Object
Set WordApp = CreateObject(& ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ