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´óÊÀ½ç ×÷ÕߣºÍõ¹úÈÙ
¡¸VB ûÓÐÌṩÕâÑùµÄ¹¦ÄÜ£¬ ±ØÐëºô½Ð Windows API¡¹£¬ µ±±ÊÕßÕâÑù»Ø´ð¶ÁÕßÖ®áᣬÓÐЩ¶ÁÕß»áÒªÇó±ÊÕß½éÉÜ Windows API ·½ÃæµÄÊé¼®£¬ ÓÈÆäÊÇÖÐÎÄÊ飬 µ«Êµ¼ÊÉÏ£¬Ä¿Ç°ÊÐÃæÉÏÖ»¿´µ½Ò»±¾ÔÎÄÊé(ZD Press ³ö°æµÄ Visual Basic 5.0 Programming Guide to Win32 API)£¬ ÖÐÎÄÊéÔòδ¼û¹ý£¬ Ϊʲ÷áÃ»Ó ......
Èç¹ûÔÀ´Ã»ÓÐʹÓùýÕýÔò±í´ïʽ£¬ÄÇô¿ÉÄܶÔÕâ¸öÊõÓïºÍ¸ÅÄî»á²»Ì«ÊìϤ¡£²»¹ý£¬ËüÃDz¢²»ÊÇÄúÏëÏóµÄÄÇôÐÂÆæ¡£
Çë»ØÏëÒ»ÏÂÔÚÓ²ÅÌÉÏÊÇÈçºÎ²éÕÒÎļþµÄ¡£Äú¿Ï¶¨»áʹÓà ? ºÍ * ×Ö·ûÀ´°ïÖú²éÕÒÄúÕýÑ°ÕÒµÄÎļþ¡£? ×Ö·ûÆ¥ÅäÎļþÃûÖеĵ¥¸ö×Ö·û£¬¶ø * ÔòÆ¥ÅäÒ»¸ö»ò¶à¸ö×Ö·û¡£Ò»¸öÈç 'data?.dat' µÄģʽ¿ÉÒÔÕÒµ½ÏÂÊöÎļþ£º
data1.dat
......
ʹÓÃc#ÓïÑÔÔÚ.netƽ̨Éú³ÉµÄdllÊÇ»ùÓÚMSILµÄ¶þ½øÖÆ´úÂ룬ͨ³£Çé¿öÏÂÊÇÎÞ·¨±»nativeµÄÓïÑԺͳÌÐòµ÷Óõģ¨ÀýÈçvb£¬vc£¬delphi£©¡£µ«ÊÇÒ»°ãÀ´ËµwindowsÉÏnativeµÄ³ÌÐò¶¼ÊÇ¿ÉÒÔÖ±½ÓʹÓÃcom¶ÔÏóµÄ¡£Í¨¹ý.netƽ̨ÌṩµÄһЩ¹¤¾ß£¬¿ÉÒÔΪÆäαÔìÒ»¸öcom½Ó¿Ú²¢×¢²áµ½ÏµÍ³ÖС£´Ëʱ£¬¿ÉÒÔÔÚnativeµÄ³ÌÐòÀͨ¹ýÕâ¸öαcom½Ó¿ÚÀ´ÊµÏÖ´Ë. ......
Ìí¼Ó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 ......
¾ÍÕâôһ¸öº¯Êý¾Í½â¾öÁËÄÇλÈÊÐÖ3Ìì¶àµÄ¹¤×÷
°¦~£¡Õæ±»Ò»¸öº¯ÊýÍæËÀÁË
ÕâÀï˳±ãÌû³öÀ´°É
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Microsoft.VisualBasic.Shell( ......