ÓÃ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 Step 1 / 1000
w0 = Val(Form1.Text1.Text)
w1 = Val(Form1.Text2.Text)
w2 = Val(Form1.Text3.Text)
w3 = Val(Form1.Text4.Text)
f0 = 1 / 6 * (-t ^ 3 + 3 * t ^ 2 - 3 * t + 1)
f1 = 1 / 6 * (3 * t ^ 3 - 6 * t ^ 2 + 4)
f2 = 1 / 6 * (-3 * t ^ 3 + 3 * t ^ 2 + 3 * t + 1)
f3 = 1 / 6 * (t ^ 3)
ptx = (f0 * p(0, 0) * w0 + f1 * p(1, 0) * w1 + f2 * p(2, 0) * w2 + f3 * p(3, 0) * w3) / (f0 * w0 + f1 * w1 + f2 * w2 + f3 * w3)
pty = (f0 * p(0, 1) * w0 + f1 * p(1, 1) * w1 + f2 * p(2, 1) * w2 + f3 * p(3, 1) * w3) / (f0 * w0 + f1 * w1 + f2 * w2 + f3 * w3)
Picture1.PSet (ptx, pty), vbRed
Next
Picture1.DrawWidth = 1
For i = 0 To num - 2
Picture1.Line (p(i, 0), p(i, 1))-(p((i + 1), 0), p((i + 1), 1)), vbGreen
Next
End Sub
Private Sub Command2_Click()
Dim i As Integer
For i = 0 To num - 2
Picture1.Line (p(i, 0), p(i, 1))-(p((i + 1), 0), p((i + 1), 1)), vbWhite
Next
For i = 0 To num
Picture1.Circle (p(i, 0), p(i, 1)), 40, vbWhite
Ïà¹ØÎĵµ£º
VBÒþ²Ø½ø³ÌÎÊÌâµÄÌÖÂÛÓÉÀ´ÒѾÃ,Ч¹ûÓкÃÓлµ,·´ÕýÊǸ÷Óи÷µÄÕÐ,żȻ»ú»á¿´µ½planet-sourceÒ»¶ÎÒþ²Ø½ø³ÌµÄÎÄÕÂ,×÷Õß˵²ÉÓÃÁËkernel mode driver!·½·¨,
µ¥´Ó¼¼Êõ·½·¨¶øÑÔ,ÕâÊÇĿǰ¼ûµ½Òþ²Ø½ø³ÌÖÐ×îÇ¿º·µÄÁË(¸öÈ˼û½â,¾®µ×Ö®ÍÜÁË),²»¹ýÕâÖÖ¶«Î÷ÓÃÔÚÕýÒåµÄÈËÊÖÉÏÊÇÒ»¸ö³ý±©°²Á¼µÄÀûÆ÷,ÓÃÐÄØÏ²âÕ߾Ͳ»ºÃ˵ÁË,µ«ÊǼ¼ÊõÖÕ¹éÊǼ¼Êõ ......
Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
Private Sub Command1_Click()
Dim Url As String, Filepath As String
Url = "h ......
Dim wdapp As Word.Application
Dim wddoc As Word.Document
Dim wdtable As Word.Table
Set wdapp = CreateObject("word.application")
Set wddoc = wdapp.Documents.Add
  ......
MYSQL Ó¦ÓÃÊ®·Ö¹ã·¶£¬ºÜ¶àÍøÕ¾¼¸ºõ¶¼ÔÚÓÃËû£¬ÒòΪËûµÄСÇɺÍÁé»îÐԵȷ½ÃæÈÃÎÒ¾ö¶¨Òª¶ÔËû½øÐÐÑо¿£¬µ½ÏÖÔÚÒѾ³É¹¦µÄ²»Óþ¹ýODBC£¬ADOµÈ·½Ê½¾Í¿ÉÒÔ¶ÁÈ¡ºÍ¸üÐÂÊý¾Ý¡£
ºÃÁ˲»¶àÂÞ࣬ÒÔÏÂÎÒÀ´½éÉÜ×ܸö³ÌÐòµÄϸ½Ú:
£¨Ò»£©APIÉùÃ÷
1. '·ÖÅä»ò³õʼ»¯ÊʺÏmysql_real_connect()µÄÒ»¸öMYSQL¶ÔÏñ¡ ......
Private Sub Form_load()
'ÅжϳÌÐòÊÇ·ñÒѾÔËÐÐ
If App.PrevInstance
Then
MsgBox "±¾³ÌÐòÒѾÔËÐУ¡", vbInformation Or vbOKOnly, "ÌáʾÐÅÏ¢"
Unload
Me
Exit Sub
&n ......