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

VB»ñȡִÐгÌÐòͼ±ê

Ò»¸öCommonDialog£¬Ò»¸öCommandButton£¬Ò»¸öPictureBOX
Option Explicit
Private Declare Function DrawIcon Lib "user32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal hIcon As Long) As Long
Private Declare Function ExtractIcon Lib "shell32.dll" Alias "ExtractIconA" (ByVal hInst As Long, ByVal lpszExeFileName As String, ByVal nIconIndex As Long) As Long
Private Sub Command1_Click()
Dim total As Long
Dim p(50) As Long
Dim i As Integer
Me.Picture1.Cls
Me.CommonDialog1.Filter = "ͼ±ê|*.Exe;*.Ico;*.Dll"
Me.CommonDialog1.ShowOpen
If Dir(Me.CommonDialog1.FileName) <> "" Then
If ExtractIcon(App.hInstance, Me.CommonDialog1.FileName, -1) = 0 Then 'Èç¹ûûÓÐͼ±ê
MsgBox "No Icon!"
Else
total = ExtractIcon(App.hInstance, Me.CommonDialog1.FileName, -1)
'È¡µÃ×Üͼ±êÊý
For i = 0 To total - 1
p(i) = ExtractIcon(App.hInstance, Me.CommonDialog1.FileName, i) '¶Áȡÿ¸öͼ±ê
Next i
For i = 0 To total - 1 'ÒÀ´ÎÏÔʾÿ¸öͼ±ê
DrawIcon Picture1.hdc, 34 * i, 0, p(i)
Next i
End If
End If
End Sub


Ïà¹ØÎĵµ£º

Ŀǰ·¢ÏÖµÄ×îÇ¿º·µÄVBÒþ²Ø½ø³Ì·½·¨

VBÒþ²Ø½ø³ÌÎÊÌâµÄÌÖÂÛÓÉÀ´ÒѾÃ,Ч¹ûÓкÃÓлµ,·´ÕýÊǸ÷Óи÷µÄÕÐ,żȻ»ú»á¿´µ½planet-sourceÒ»¶ÎÒþ²Ø½ø³ÌµÄÎÄÕÂ,×÷Õß˵²ÉÓÃÁËkernel mode driver!·½·¨,
µ¥´Ó¼¼Êõ·½·¨¶øÑÔ,ÕâÊÇĿǰ¼ûµ½Òþ²Ø½ø³ÌÖÐ×îÇ¿º·µÄÁË(¸öÈ˼û½â,¾®µ×Ö®ÍÜÁË),²»¹ýÕâÖÖ¶«Î÷ÓÃÔÚÕýÒåµÄÈËÊÖÉÏÊÇÒ»¸ö³ý±©°²Á¼µÄÀûÆ÷,ÓÃÐÄØÏ²âÕ߾Ͳ»ºÃ˵ÁË,µ«ÊǼ¼ÊõÖÕ¹éÊǼ¼Êõ ......

ÈçºÎʵÏÖVBÓëEXCELµÄÎÞ·ìÁ¬½Ó

 http://social.msdn.microsoft.com/Forums/zh-TW/232/thread/5b0e0eb7-9cd7-420a-9f56-e588154174ba
http://www.mndsoft.com/blog/article.asp?id=903
http://topic.csdn.net/t/20051015/14/4328396.html
¡¡¡¡VBÊdz£ÓõÄÓ¦ÓÃÈí¼þ¿ª·¢¹¤¾ßÖ®Ò»£¬ÓÉÓÚVBµÄ±¨±í¹¦ÄÜÓÐÏÞ£¬¶øÇÒÒ»µ«±¨±í¸ñʽ·¢Éú±ä»¯£¬¾ÍµÃÏàÓ¦Ð޸ijÌÐò£ ......

VB6.0ÈçºÎÓà libmySQL.dll API·ÃÎÊMYSQLÊý¾Ý¿â

MYSQL Ó¦ÓÃÊ®·Ö¹ã·¶£¬ºÜ¶àÍøÕ¾¼¸ºõ¶¼ÔÚÓÃËû£¬ÒòΪËûµÄСÇɺÍÁé»îÐԵȷ½ÃæÈÃÎÒ¾ö¶¨Òª¶ÔËû½øÐÐÑо¿£¬µ½ÏÖÔÚÒѾ­³É¹¦µÄ²»Óþ­¹ýODBC£¬ADOµÈ·½Ê½¾Í¿ÉÒÔ¶ÁÈ¡ºÍ¸üÐÂÊý¾Ý¡£
 
ºÃÁ˲»¶àÂÞ࣬ÒÔÏÂÎÒÀ´½éÉÜ×ܸö³ÌÐòµÄϸ½Ú:
 
£¨Ò»£©APIÉùÃ÷
 
1.  '·ÖÅä»ò³õʼ»¯ÊʺÏmysql_real_connect()µÄÒ»¸öMYSQL¶ÔÏñ¡ ......

ÓÃVB»­4¸öµãµÄNURBSÇúÏ߲ο¼´úÂë

Dim p(10000, 1) As Double
Dim num As Integer
Dim ptx As Single
Dim pty As Single
Dim w0, w1, w2, w3 As Single
Private Sub Command1_Click()
Dim t As Single
 Dim i As Integer
 Dim f0, f1, f2, f3 As Single
 Picture1.DrawWidth = 3
      For t = 0 To 1 St ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ