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

VBʹÓÃActiveX¿Ø¼þʵÀýºÍ²½¾Û

Ä¿µÄÕÆÎÕÒ»¸ö¼òµ¥µÄVB³ÌÐòµÄ½¨Á¢¡¢±à¼­¡¢µ÷ÊÔ¡¢ÔËÐкͱ£´æµÄ·½·¨¡£
²Ù×÷²½Öè ¢Å½øÈëVB»·¾³£¬Ð½¨¹¤³Ì¡£·½·¨ÊÇ£ºÈç¹û³öÏ֓н¨¹¤³Ì”¶Ô»°¿ò£¬ÔòÑ¡Ôñ“±ê×¼.EXE”²¢µã»÷[´ò¿ª]°´Å¦£»»òÕßÖ±½Óµã»÷²Ëµ¥[Îļþ]-[н¨¹¤³Ì]¡£¶¼»á³öÏÖÒ»¸öÃûΪ“Form1”µÄд°Ìå¡£
¢Æ´Ó±ê×¼¿Ø¼þ¹¤¾ßÀ¸ÖÐÏò´°Ìå¼ÓÈë±êÇ©(Label1ºÍLabel2)¡¢Á½¸öÃüÁŦ(Command1ºÍCommand2)¡£
 ¢ÇÓÉÓÚ±ê×¼¿Ø¼þ¹¤¾ß½öÌṩ20¸öÄÚ²¿¿Ø¼þ£¬Êµ¼ÊÉÏvb³ÌÐòÖл¹¿É¼ÓÈëActiveX¿Ø¼þºÍ¿É²åÈë¶ÔÏóµÈ¡£Îª´Ë±¾´ÎʵÑéÇëÊÔÓÃÒÔÏ·½·¨¼ÓÈë“»¬¿é”¿Ø¼þ£¬¼ÓÈëǰ±ØÐëʹÓò˵¥[¹¤³Ì]-[²¿¼þ]£¬È»ºó´Óµ¯³öµÄÁбí¿òÖй´Ñ¡“Microsoft Windows Common Control 6.0 ”²¢µã»÷[È·¶¨]°´Å¦£¬È»ºó¾Í¿ÉÒԴӿؼþ¹¤¾ßÀ¸ÖмÓÈëÒ»¸öÃûΪ“Slider”µÄ»¬¿é¿Ø¼þÁË¡£
 ¢ÈÉèÖô°ÌåµÄ±³¾°Í¼Ïñ¡¢ÃüÁŦµÄPictureÊôÐÔºÍÁ½¸ö±êÇ©ÉϵÄÎÄ×ÖºÍ×ÖÌåºóµÈÊôÐÔ£º ¿Ø¼þÃû ÊôÐÔºÍÊôÐÔÖµ Form1 Caption=”³õʶVBÊÀ½ç”Picture=” BJtu.bmp” Label1 Caption=”ÐÂÄê¿ìÀÖ” Font Á¥Êé 36 ºÚÉ« Left=400 BackStyle ͸Ã÷ Label2 Caption=”ÐÂÄê¿ìÀÖ” Font Á¥Êé 36 °×É«BackStyle ͸Ã÷ Command1 ½«CaptionÇå³ý Picture=” HANDAR_Left.GIF” Style=1.Graphical Command2 ½«CaptionÇå³ý Picture=” HANDAR_Right.GIF” Style=1.Graphical Slider1 Max=7000 Min=500 LargeChange=50
 ¢É¸÷¿Ø¼þÊôÐÔÉèÖÃÍê³ÉºóЧ¹ûÈçÏ£º
¢Ê±àдÏìÓ¦¼¸¸öʼþµÄ´úÂ룬ĿµÄÊÇÔËÐÐʱIJ¿ØÖƱêÇ©ÎÄ×ÖµÄ×óÓÒÒÆ¶¯¡£¹²4¸öÒªÏìÓ¦µÄʼþ£º ¢Ù ´°ÌåµÄÔØÈëʼþ(Sub Form_Load):ÔÚ´°Ìå¿Õ°×´¦Ë«»÷Êó±ê×ó¼ü,¼´¿Éµ¯³ö¸ÃʼþµÄ¹ý³Ì´úÂëµÄ¿ò¼Ü,¼´ÓÐ: Private Sub Form_Load() End Sub ÇëÔÚÆäÖÐдÈëÁ½ÌõÓï¾ä(¹¦ÄÜÊÇͨ¹ýÉèÖñêÇ©µÄTopºÍLeftÊôÐÔ,ʹÁ½¸ö±êÇ©ÎÄ×Ö³ÊÁ¢Ìå´íλЧ¹û) Label2.Top = Label1.Top - 50 Label2.Left = Label1.Left - 50 ¢Ú Ë«»÷×óÊÖÖ¸ËùÔڵݴŦCommand1µÄÊó±êµ¥»÷ʼþ(Sub Command1_Click()):Ôڸð´Å¦ÉÏË«»÷Êó±ê,¼´¿Éµ¯³ö¸ÃÏîʼþµÄ¹ý³Ì´úÂëµÄ¿ò¼Ü,¼´ÓÐ: Private Sub Command1_Click() End Sub ÇëÔÚÆäÖÐдÈëÁ½ÌõÓï¾ä,¹¦ÄÜÊÇÈÃÁ½¸ö±êÇ©µÄ×ó±ß½çͬʱ¼õÉÙ50,ʹÆä×óÒÆ. Label1.Move Label1.Left - 50 Label2.Move Label2.Left - 50 ¢Û ÓÃͬÑùÔÚ·½·¨±àдÓÒÊÖÖ¸ËùÔڵݴŦCommand2µÄÊó±êµ¥»÷ʼþ,¼´ÔÚµ¯³öµÄ¹ý³Ì´úÂë¿ò¼ÜÖÐдÈ


Ïà¹ØÎĵµ£º

VBʹÓÃÊÖÐεÄͼ±ê

Option Explicit
Private Declare Function LoadCursor Lib "user32.dll" Alias "LoadCursorA" (ByVal hInstance As Long, ByVal lpCursorName As Long) As Long
Private Declare Function SetCursor Lib "user32.dll" (ByVal hCursor As Long) As Long
Private Const IDC_HAND As Long = 32649
Private myHand_handle ......

ʹÓÃVB´´½¨PPPoEÒÔ¼°VPN²¦ºÅÁ¬½ÓµÄºËÐÄ´úÂë

Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
Private Type GUID
    Data1   As Long
    Data2   As Integer
    Data3   As Integer
 &nbs ......

Asp.net ÎļþÉÏ´«£¨Vb.net°æ£©

ÔÚAsp.netÖÐʵÏÖÎļþµÄÉÏ´«¹¦ÄÜ£¬ÊǷdz£¼òµ¥µÄÒ»¼þÊÂÇ飬ֻÐèÒªÀûÓÃ΢ÈíÌṩµÄFileUpload¿Ø¼þ¼´¿ÉÇáËÉʵÏÖ¡£
LargeFileUpload.aspx´úÂëÈçÏÂ
<%@ Page Language="VB" AutoEventWireup="false" CodeFile="LargeFileUpload.aspx.vb"
    Inherits="LargeFileUpload" %>
<!DOCTYPE html PUBLIC "-//W3C/ ......

VB ¶ÁÖ¸¶¨ÐÐ

http://zhidao.baidu.com/question/81532606.html
VB ¶ÁÖ¸¶¨ÐÐ
ÐüÉÍ·Ö£º10 - ½â¾öʱ¼ä£º2009-1-20 11:41
vbÖÐÈçºÎ¶Áȡָ¶¨ÐеÄÄÚÈÝ£¬´°ÌåÉÏÓÐÁ½¸ö±êÇ©£¬ÎļþÔÚC:\A.TXT,Ëĸö°´Å¥£¬µ¥»÷µÚÒ»¸ö£¬¶ÁÎļþµÄµÚÒ»Ðе½±êǩһ£¬µÚ¶þÐе½±êÇ©¶þ£»µ¥»÷µÚ¶þ¸ö°´Å¥£¬µÚÈýÐе½±êǩһ£¬µÚËÄÐе½±êÇ©¶þ£»ÒÔ´ËÀàÍÆ£¬Ð»Ð»
ÌáÎÊÕߣº im ......

VB ʹÓÃWMI±à³Ì£¨Ò»£©

Óɵ×ÖÁÉÏÊÇ£º
          • ÍйÜ×ÊÔ´
          • WMI »ù´¡½á¹¹
          • ʹÓÃÕß
ÍйÜ×ÊÔ´
    ÍйÜ×ÊÔ´ÊÇÈÎÒâÂß¼­»òÎïÀí×é¼þ£¬Í¨¹ýʹ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ