Ò׽ؽØͼÈí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö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ÓëWindows API½²×ù(¶þ) өĻץȡÓëÓ©Ä»±£»¤³Ìʽ

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

VBÕýÔò±í´ïʽ

Èç¹ûÔ­À´Ã»ÓÐʹÓùýÕýÔò±í´ïʽ£¬ÄÇô¿ÉÄܶÔÕâ¸öÊõÓïºÍ¸ÅÄî»á²»Ì«ÊìϤ¡£²»¹ý£¬ËüÃDz¢²»ÊÇÄúÏëÏóµÄÄÇôÐÂÆæ¡£
Çë»ØÏëÒ»ÏÂÔÚÓ²ÅÌÉÏÊÇÈçºÎ²éÕÒÎļþµÄ¡£Äú¿Ï¶¨»áʹÓà ? ºÍ * ×Ö·ûÀ´°ïÖú²éÕÒÄúÕýÑ°ÕÒµÄÎļþ¡£? ×Ö·ûÆ¥ÅäÎļþÃûÖеĵ¥¸ö×Ö·û£¬¶ø * ÔòÆ¥ÅäÒ»¸ö»ò¶à¸ö×Ö·û¡£Ò»¸öÈç 'data?.dat' µÄģʽ¿ÉÒÔÕÒµ½ÏÂÊöÎļþ£º
data1.dat ......

Ïê½âVBµ÷ÓÃC#Àà¿âµÄ·½·¨²½Ö裨תÔØ£©

ʹÓÃc#ÓïÑÔÔÚ.netƽ̨Éú³ÉµÄdllÊÇ»ùÓÚMSILµÄ¶þ½øÖÆ´úÂ룬ͨ³£Çé¿öÏÂÊÇÎÞ·¨±»nativeµÄÓïÑԺͳÌÐòµ÷Óõģ¨ÀýÈçvb£¬vc£¬delphi£©¡£µ«ÊÇÒ»°ãÀ´ËµwindowsÉÏnativeµÄ³ÌÐò¶¼ÊÇ¿ÉÒÔÖ±½ÓʹÓÃcom¶ÔÏóµÄ¡£Í¨¹ý.netƽ̨ÌṩµÄһЩ¹¤¾ß£¬¿ÉÒÔΪÆäαÔìÒ»¸öcom½Ó¿Ú²¢×¢²áµ½ÏµÍ³ÖС£´Ëʱ£¬¿ÉÒÔÔÚnativeµÄ³ÌÐòÀͨ¹ýÕâ¸öαcom½Ó¿ÚÀ´ÊµÏÖ´Ë. ......

VBµÇ½163ÓÊÏä

Ìí¼Ó2¸ötext£¬Ò»¸öcommand£¬Ò»¸ö WebBrowser
Dim vDoc, vTag
Dim i As Integer
Private Sub Command1_Click()
Set vDoc = WebBrowser1.Document
For i = 0 To vDoc.All.length - 1
If UCase(vDoc.All(i).tagName) = "INPUT" Then
Set vTag = vDoc.All(i)
If vTag.Type = "text" Then
Select Case vTag.Nam ......

vb shell Ó¦ÓóÌÐò

¾ÍÕâôһ¸öº¯Êý¾Í½â¾öÁËÄÇλÈÊÐÖ3Ìì¶àµÄ¹¤×÷
°¦~£¡Õæ±»Ò»¸öº¯ÊýÍæËÀÁË
ÕâÀï˳±ãÌû³öÀ´°É
Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Microsoft.VisualBasic.Shell( ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØͼ | ¸ÓICP±¸09004571ºÅ