Çë½ÌVBÔõÑùʹÇúÏß×óÒÆ
Çë½ÌÔõÑùʹÇúÏß×óÒÆ£¬×îºÃÄÜÌù³ö´úÂ룬лл¡£
url=][/url]
bmpÔõôÉÏ´«£¿
ÎÒµÄͼƬÔÚD:\sin.bmp
ÒªÏÈ´«µ½ÍøÂçÉÏ£¬ÔÙÌùÏàÓ¦µÄ URL ¡£
¿ÉÒÔ´«µ½ÄãµÄÏà²áÖС£
ÄãÒ²¿ÉÒԲο¼Õâ¸öÌù×ÓÖÐ 8F µÄʾÀý£º
http://topic.csdn.net/u/20091105/11/5877aaf1-4850-4c0e-924d-ee3a03aa846f.html
http://www.m5home.com/blog/article.asp?id=282
ÒªÕâ¸ö?
ÀÏÂíÕâ¸öÀý×Ó²»´í
ÒÆ¶¯ÇúÏß×î¼ÑÑ¡ÔñÊÇBitBltº¯Êý£¬Õâ¸öº¯Êý¹¦ÄÜÇ¿´ó£¬±ÉÈËûÓÐÍêÈ«ÕÆÎÕ¡£
http://download.csdn.net/source/1371365
VB code:
Private Sub Form_Load()
Picture1.AutoRedraw = True
Picture1.DrawWidth = 4
Picture1.Scale (0, -1)-(20, 1)
Timer1.Interval = 20
End Sub
Private Sub Timer1_Timer()
Picture1.Cls
Static T As Double
For X = 0 To Picture1.ScaleWidth Step 0.01
Picture1.PSet (X, Sin(X + T)), vbRed
Next
T = T + 0.5
End Sub
²»ºÃÒâ˼£¬ÎÒ¸Õ»ØÀ´ ÏÖÔÚÎÒ°ÑÎҵĴúÂëÌù³ö£¬Äܲ»ÄÜÇë¸÷λÐÞ¸ÄÐ޸ġ£
Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long
Dim X1 As Integer
Dim Y1 As Integer
Dim X2 As Integer
Dim Y2 As Integer
Dim Jishi As Int
Ïà¹ØÎÊ´ð£º
vbÖÐÔõôͨ¹ýxmlÀ´½âÎöÊý¾Ý¿âÖеÄ×Ö¶ÎÖµ¡£
û°ì·¨ÓÃXML½âÎöÊý¾Ý¿âµÄ×Ö¶ÎÖµ£¬³ý·ÇÊý¾Ý¿âÖб£´æµÄÊÇXML¸ñʽµÄ×Ö·û´®Îĵµ¡£
XMLÓÃÀ´Õ¹Ê¾²ã´ÎµÄÊý¾Ý¡£
Êý¾Ý¿âÒ»°ãÊǶþάÊý¾Ý¡£
Êý¾Ý¿âÖб£´æµÄÊÇXML×Ö·û´®¸ñʽ£ ......
ÔÚvbÕâ±à³ÌÀïËÆºõÓкܶàµÄ¶«Î÷ÊÇÏàÁªÏµµÄ£¬ÎªÊ²Ã´ÓÐЩÈ˶ÔvbµÄ±à³ÌÃþ²»µ½Í·ÄÔ°¡£¡²¢ÇÒÓÐЩʺÜÈÝÒ׵쬵«ÊÇÈ´°ÑËüÃǵĴúÂë±ä³É¸´ÔÓ£¬Ò²È¥ÏëһЩ²»ÄÜʵÏֵĶ«Î÷°¡£¡
û·ÖÁË£¬Â¥Ö÷¶àÀ´µã·Ö£¡
À´½Óµã·Ö
......
vb½«winsock¿Ø¼þ·â×°µ½dllÎÊÌâ ÓÐʲôºÃµÄ˼·£¿ Èç¹ûÓÃSocket APIÄØ£¿
ÀýÈ磬ÏñÏÂÃæÕâÑù·â×°Winsock¿Ø¼þ£¬ÐеÄͨ£¿
´´½¨ActiveX dll£¬Ìí¼Ó´°ÌåfrmClient£¬¼ÓÈëWinSock¿Ø¼þwskClient¡£
Àà´úÂ룺
Option Expli ......
Private Sub Check1_Click()
If Check1.Value = 1 Then
DTP1.Enabled = True
Else
DTP1.Enabled = False
End If
End Sub
Private Sub Check2_Click()
If Check2.Value = 1 Then
DTP2.Enabled = True
Else
......
ÎÒÏë×ö¸öÓÃvb6×öµÄ³ÌÐò£¬¿ÉÒÔ¿ØÖÆGPRS MODEM²¦ºÅ£¬È粦ÎÒ×Ô¼ºµÄÊÖ»ú
¿ÉÒÔ°¡
ÄãÏÈϸöATÃüÁºÏѧϰѧϰ
ÎÒÀ´¶¥
¶¥Ìù
LZºÃÀ÷º¦
²»¶¥²»ÐÐ
ÀÏÊÇÅÅMP
ÒýÓÃ
LZºÃÀ÷º¦
......