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

VBʵÏÖ¼òµ¥µÄͼÐÎÇøÓòÑ¡Ôñ

³ÌÐòЧ¹û£º
µ±µã»÷×ó±ßµÄ²¿¼þͼʱ£¬»áµ¯³ö¶Ô»°¿òÌáʾÄãµã»÷ÁËÄÄÒ»¸öÇøÓò¡£
³ÌÐò˼·£º
ÓÃÒ»¸öÍ¼Æ¬ÇøÓòÂëͼ×÷Ϊµã»÷ÇøÓòµÄ²ÎÕÕ£¬¸ù¾ÝXYÈ¡µÃµÄÑÕɫʶ±ð³öÊôÓÚÄÄÒ»¸öÇøÓò
³ÌÐò½çÃæÈçÏ£º
Ïà¹Ø´úÂëÈçÏ£º
Visual Basic Code
Dim ColorArray (   )   As Long
Dim ColorCount As Long
Private Sub Form_Load (   )  
   '³õʼ»¯ÑÕÉ«ÊýÁ¿
      ColorCount   =   Picture3.Width / 10
      ReDim ColorArray ( 1 To ColorCount )  
      For X   =   1 To ColorCount
            ColorArray ( X )     =   Picture3.Point (   ( X * 10 )   - 5, 5 )  
      Next X
End Sub
Private Sub Picture1_MouseDown ( Button As Integer, Shift As Integer, X As Single, Y As Single )  
      If Button   =   1 Then
            Dim NowColor As Long
            NowColor   =   Picture2.Point ( X, Y )  
            If NowColor <> RGB ( 255, 255, 255 )   Then
                  Dim i As Long
                  For i   =   1 To ColorCount
                        If NowColor   =   ColorArray ( i )   Then
                              ButtonClick i
                              Exit For
                        End If
                  Next i
            End If
      End If
End Sub
Private Sub ButtonClick ( Index As Long ) &n


Ïà¹ØÎĵµ£º

VB.NETÖвÙ×÷xmlÎļþ£¨²åÈë½Úµã¡¢Ð޸ġ¢É¾³ý£©

ÒÑÖªÓÐÒ»¸öXMLÎļþ£¨bookstore.xml£©ÈçÏ£º
<?xml version="1.0" encoding="gb2312"?>
<bookstore>
<book genre="fantasy" ISBN="2-3631-4">
<title>Oberon's Legacy</title>
<author>Corets, Eva</author>
<price>5.95</price>
</book>
< ......

SQLDMOÔÚVBÖеÄÓ¦ÓÃ

¡¡¡¡SQLDMO£¨SQL Distributed Management Objects£¬SQL·Ö²¼Ê½¹ÜÀí¶ÔÏ󣩷â×° Microsoft SQL Server 2000 Êý¾Ý¿âÖеĶÔÏó¡£SQL-DMO ÔÊÐíÓÃÖ§³Ö×Ô¶¯»¯»ò COM µÄÓïÑÔ±àдӦÓóÌÐò£¬ÒÔ¹ÜÀí SQL Server °²×°µÄËùÓв¿·Ö¡£ SQL-DMO ÊÇ SQL Server 2000 ÖÐµÄ SQL Server ÆóÒµ¹ÜÀíÆ÷ËùʹÓõÄÓ¦ÓóÌÐò½Ó¿Ú (API);Òò´ËʹÓà SQL-DMO µÄÓ ......

VBÎÞËù²»ÄÜÖ®Æß£ºVBµÄ¶àỊ̈߳¨1£©

VBÎÞËù²»ÄÜÖ®Æß£ºVBµÄ¶àỊ̈߳¨1£©
×÷ÕߣºÖÓÉù
 
ÌâÍâ»°£º
 
×î½ü£¬Ð´Á˼¸Æª¡¶VBÎÞËù²»ÄÜ¡·ÏµÁУ¬±¾ÏµÁÐÎÄÕµĴ´×÷³õÖÔ¾ÍÊÇҪȥµß¸²ÖÚ¶à³ÌÐòÔ±¶ÔÓÚ“·ÇÃæÏò¶ÔÏó”ÓïÑÔ“VB”µÄ³É¼û£¡
 
µ±È»£¬ÎÒÒ²ÔçÓÐÔ¤ÆÚ£¬´ËÑÔÒ»³ö±ØÈ»ÕÐÖ²»Ã÷ÕæÏàµÄȺÖڵēΧ¹¥”£¬È»¶ø£¬ÎÒ»¹ÊÇÒª¼ ......

º§ÈËÌýÎÅ,VBÓöµ½ÕâÏÖÏó,´ó¼ÒСÐÄÍÛ~

YXOnlineÒѾ­½Ó½üβÉù,ΪÁË´¦ÀíһЩ½çÃæµÄÎÊÌâ,²âÊÔÒ»¸öC++µÄDLL
Ò»¸öº¯Êý,ÓÃdeasambling¿´C++µÄ´úÂëÊÇûÓдíÎóµÄ,µ«Êǵ½ÁËVB,Çë¿´
bµÄ·µ»ØÖµÊÇTrue ²»¹ÜC++ºÍVBÏ໥¼üÔ¼¶¨TrueºÍFalse¸÷¶ÔӦΪʲôÊýÖµ
ÕâÀïÒѾ­ÊÇTrueÁË
µ«ÄÇʱÏÔʾTrue = True ÈԾɲ»Ö´ÐеÚÒ»¸öMsgbox
Ö±½ÓÌøµ½Else
¶øÈç¹ûÊ¡ÂÔb = True Ϊ If b Then ......

ASP VB.NET ¿Í»§¶ËÉÏ´«Îļþµ½·þÎñÆ÷¶Ë

  Dim strPath As String = Server.MapPath("~\Îļþ¼Ð")
        'Åжϱ£´æÎļþ·¾¶ÊÇ·ñ´æÔÚ ²»´æÔÚÔò´´½¨
        If Not Directory.Exists(strPath) Then
            Directory ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ