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

VBÖиù¾ÝÎı¾ÐÐÊýÏÔʾ¹ö¶¯Ìõ(¶¯Ì¬ÏÔʾ¹ö¶¯Ìõ)µÄ·½·¨

ºÜ¶àʱºò,ÎÒÃDz»ÏëÒ»¿ªÊ¼¾ÍÏÔʾ¹ö¶¯Ìõ,µ±Îı¾µ½´ïÖ¸¶¨ÐÐÊýÎı¾¿òÎÞ·¨ÍêÈ«ÏÔʾµÄʱºòÔÙÏÔʾËü,ÓÉÓÚScrollbarÊôÐÔÊÇÖ»¶ÁµÄ,ÎÞ·¨ÔÚÔËÐÐʱµÄ´úÂëÖиıäÕâ¸öÊôÐÔ,Ö»ÄÜʹÓÃÏÂÃæµÄAPIʵÏÖÕâ¸ö¹¦ÄÜ:
Public Declare Function ShowScrollBar Lib "user32" (ByVal hwnd As Long, ByVal wBar As Long, ByVal bShow As Long) As Long
Public Const SB_HORZ = 0        'ˮƽ
Public Const SB_VERT = 1         '´¹Ö±
Public Const SB_BOTH = 3        'Á½Õß¶¼ÓÐ
ÔÚChangeʼþÖÐ,µ÷ÓþͿÉÒÔÁË:
Private bShow As Boolean        'ÊÇ·ñÒѾ­¸Ä±äScrollbarsÊôÐÔ,ÄãÒ²¿ÉÒÔÊ¡ÂÔÕâ¸ö¿ØÖÆ
Private Sub txtText_Change()
    txtText.SelStart = Len(txtText.Text)
    If bShow = True Then Exit Sub    '¶Áȡһ¸ö±äÁ¿µÄËÙ¶ÈÒª±È¶Áȡһ¸öÊôÐÔ¿ì,¿´ÏÂC++
       If TextHeight(txtText.Text) > txtText.Height Then
          ShowScrollBar txtText.hwnd, SB_VERT, True
          bShow = True                        'Ï´β»ÓÃÔÙÅжÏ
       End If
       
End Sub


Ïà¹ØÎĵµ£º

VB.NET2005¶ÁÈ¡XMLÊý¾Ý

ͨ¹ýµ÷ÓÃCreateDataSetfromXmlÈ¡µÃXMLÊý¾Ý
Imports System.Xml
Public Const FILE_CONFIG = "MZZ.xml"
Public Const PATH_CONFIG = "\XML\"
Dim dstXML As DataSet
Dim tblXML_DB As DataTable
Dim dtCod As New DataTable
Dim strSQL As String = ""

clsPublic ......

ÓÃVB Winsock¿Ø¼þ´´½¨TCP/IP¿Í»§»ú/·þÎñÆ÷³ÌÐò


ת×Ô£ºhttp://www.52arm.com/Article_Show.asp?ArticleID=186
 
×÷Õߣºweidian    ---±¾Õ¾Ô­´´    µã»÷Êý£º4721    ·¢±íʱ¼ä£º2008-5-7    ±à¼­£ºsanzang
 
Winsock¿Ø¼þ½¨Á¢ÔÚTCP¡¢UDPЭÒéµÄ»ù´¡ÉÏ£¬Íê³ÉÓëÔ¶³Ì¼ÆËã»úµÄ ......

VC VC++ VB UG and so on

ѧÉúʱ´úרҵÊÇ»úе£¬µ«ÊDzμӹ¤×÷ºó£¬»úÔµÇɺϴÓÊÂÁËÓëÈí¼þÏà¹ØµÄ¹¤×÷£¬¾ÍÊǶԴóÐ͹¤³ÌÈí¼þÈí¼þ×öһЩ¶þ´Î¿ª·¢£¬ÊÕ»ñ¹ý¿ìÀÖ£¬ÊÕ»ñ¹ýÐÁËᣬÔÚÒ»´ÎÓÖÒ»´ÎµÄµÃÓëʧÖУ¬ÏëÕÒÒ»¸öµØ·½£¬ÕÒһЩÈË¿ÉÒÔÂýÂýÓëÖ®·ÖÏí£¬ÓëÖ®½»Á÷£¬²¢ÆÚµÃµ½°ïÖú»òÌṩ°ïÖú£¡Ò²ÐíÄãÊÇÎÞÒâ¼û·¹ý£¬Éõ»òƯ¹ý£¬µ«ÄãµÄעĿÊÇÎÒǰ½øµÄ¶¯Á¦£¬ÓÐÐÒפ×ãÒ²»áÈÃÎÒ ......

vb×Ô¶¯¹Ø»ú³ÌÐò

Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long
Private Const EWX_LOGOFF = 0
Private Const EWX_SHUTDOWN = 1
Private Const EWX_REBOOT = 2
Private Const EWX_FORCE = 4
Private closeTime As String
Sub AdjustTokenPrivilegesForNT()
  ......

VBÓëWindows API½²×ù(¶þ) өĻץȡÓëÓ©Ä»±£»¤³Ìʽ

ÎÄÕÂÀ´Ô´:vb´óÊÀ½ç ×÷ÕߣºÍõ¹úÈÙ
¡¸VB ûÓÐÌṩÕâÑùµÄ¹¦ÄÜ£¬ ±ØÐëºô½Ð Windows API¡¹£¬ µ±±ÊÕßÕâÑù»Ø´ð¶ÁÕßÖ®áᣬÓÐЩ¶ÁÕß»áÒªÇó±ÊÕß½éÉÜ Windows API ·½ÃæµÄÊé¼®£¬ ÓÈÆäÊÇÖÐÎÄÊ飬 µ«Êµ¼ÊÉÏ£¬Ä¿Ç°ÊÐÃæÉÏÖ»¿´µ½Ò»±¾Ô­ÎÄÊé(ZD Press ³ö°æµÄ Visual Basic 5.0 Programming Guide to Win32 API)£¬ ÖÐÎÄÊéÔòδ¼û¹ý£¬ Ϊʲ÷áÃ»Ó ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ