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

VB OpenGL»æÍ¼

ÒªÏëÔÚVB6.0ÖÐʹÓÃOpenGL»æÍ¼£¬±ØÐëÏÈÏÂÔØÒ»¸öSDK,Ãû×Ö½Ðvbogl.tlb¡£ÎÒÓõİ汾ÊÇ2.1£¬Õâ¸öÔÂÒª³ö3.0°æ±¾µÄÁË¡£
ÏÂÔØ¸ÃÎļþºó£¬Ö±½ÓÔÚVB6.0“¹¤³Ì”-“ÒýÓÔÀïÃæÒýÓÃ
1¡¢ÔÚformÖмÓÈëÒ»¸öPictureBox¿Ø¼þ
2¡¢ÒªÔÚWindowsÀïÃæÊ¹ÓÃOpenGL£¬±ØÐëÏȽøÐÐÏñËØ¸ñʽÉèÖ㬺¯Êý´úÂëÈçÏÂ
Dim hRC     As Long’È«¾Ö±äÁ¿
 
   'ÆôÓÃOGL
Sub EnableOpenGL(ghDC As Long)
On Error GoTo Err
Dim pfd As PIXELFORMATDESCRIPTOR                'pfdÏñËØ¸ñʽÉèÖÃ.
    ZeroMemory pfd, Len(pfd)
    pfd.nSize = Len(pfd)                        '´óС
    pfd.nVersion = 1                            '°æ±¾
    pfd.dwFlags = PFD_DRAW_TO_WINDOW Or PFD_SUPPORT_OPENGL Or PFD_DOUBLEBUFFER '±êÖ¾
    pfd.iPixelType = PFD_TYPE_RGBA              'ÏñËØÀàÐÍ
    pfd.cColorBits = 24                         'ÑÕɫλÊý
    pfd.cDepthBits = 32                         'λ¿í
    pfd.iLayerType = PFD_MAIN_PLANE             'ͼ²ãÀàÐÍ
   
    Dim PixFormat As Long
    PixFormat = ChoosePixelFormat(ghDC, pfd)    'Ñ¡ÔñÉ豸ÖÐ×îÆ¥ÅäÎÒÃÇËùÉèÖõÄÏñËØ
    SetPixelFormat ghDC, PixFormat, pfd  &nbs


Ïà¹ØÎĵµ£º

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±àдActiveX DLLʵÏÖASP±à³Ì

ASPÊÇĿǰһÖÖ¹ãΪӦÓõÄÓÃÀ´¿ìËÙ¹¹½¨¶¯Ì¬WEBÕ¾µãµÄ±à³ÌÓïÑÔ£¬Ä¬ÈϵÄÄÚÖÿª·¢ÓïÑÔÊÇVBScript£¬ÓÉÓÚASPºÍ΢ÈíWindowsϵÁвÙ×÷ϵͳµÄ½áºÏ·Ç³£µÄºÃ£¬Ê¹µÃASPÒѾ­³ÉΪÁËNT¿ª·¢Æ½Ì¨ÉÏÃæ½øÐÐWEB¿ª·¢µÄÊ×Ñ¡ÓïÑԺͻ·¾³¡£
ËûÓÐ׿òµ¥Ò×ѧ£¬·½±ã¿ìËÙ¿ª·¢µÄÖÖÖÖÓŵ㣬µ«ÊÇËûÒ²ÓÐ×ÅÖÂÃüµÄÈõµã£¬¾ÍÊÇËûÊǽű¾ÓïÑÔ½âÊÍÖ´Ðеģ¬ËÙ¶È»áÊܵ½ ......

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)£¬ ÖÐÎÄÊéÔòδ¼û¹ý£¬ Ϊʲ÷áÃ»Ó ......

VB.NET/ASP.NET±àÂë¹æ·¶

ÔÚ¿ª·¢Öб£³ÖÁ¼ºÃµÄ±àÂë¹æ·¶ÊÇÊ®·ÖÖØÒªµÄ¡£ÎÒËù²ÉÓõÄеÄVB.net/ASP.NET±àÂë¹æ·¶£¬ÊÇÒ»ÖÖ±»Ö¤Ã÷ÄÜÃ÷ÏÔ¸ÄÉÆ´úÂë¿É¶ÁÐÔ£¬²¢ÓÐÖúÓÚ´úÂë¹ÜÀí¡¢·ÖÀàµÄ±àÂë¹æ·¶¡£²ÉÓÃÕâÖÖ±àÂë¹æ·¶£¬ÄܱÜÃâÈçÐÙÑÀÀûÃüÃû·¨´øÀ´µÄ·±³¤Ç°×º£¬±ãÓÚ¼ÇÒä±äÁ¿µÄÓÃ;¡£ÏÂÃæµÄ½éÉÜÕâÖÖ±àÂë¹æ·¶¡£
Ò»¡¢ÀàÐͼ¶µ¥Î»µÄÃüÃû
1¡¢Àà
¡õÒÔClassÉùÃ÷µÄÀ࣬¶¼±ØÐë ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ