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

ÓÃ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³ÌÐò

ÈçºÎÈ¥ÓÅ»¯ÄãµÄVB³ÌÐò°ïÖú 
1¡¢ÈçºÎÈ¥ÓÅ»¯ÄãµÄVB³ÌÐò
Visual Basic ×÷ΪһÖָ߼¶±à³ÌÓïÑÔ£¬ËüÒ²ÓÐ×Ų»¿É±ÜÃâµÄȱµã---¿ª·¢³öµÄÓ¦ÓóÌÐòÔËÐÐËÙ¶ÈÂý¡£Èç¹ûÎÒÃÇÄܹ»³ÌÐò×öһЩÓÅ»¯£¬ÄÇôÇé¿ö½«»á´ó´ó¸ÄÉÆ¡£ÒªÓÅ»¯³ÌÐòÔËÐеÄʵ¼ÊËٶȣ¬³£Óõķ½·¨ÓÐÈýÖÖ£º
1.¾¡Á¿±ÜÃâʹÓà Variant ±äÁ¿¡£ÓÉÓÚVB²»ÄÜÈ·¶¨ Variant ±äÁ¿µÄ¾ ......

VBÄ£Äâ°´¼ü

¼üÅÌÊÇÎÒÃÇʹÓüÆËã»úµÄÒ»¸öºÜÖØÒªµÄÊäÈëÉ豸ÁË£¬¼´Ê¹ÔÚÊó±ê´óÐÐÆäµÀµÄ½ñÌ죬ºÜ¶à³ÌÐòÒÀÈ»Àë²»¿ª¼üÅÌÀ´²Ù×÷¡£µ«ÊÇÓÐʱºò£¬Ò»Ð©Öظ´ÐԵģ¬ºÜ·±ËöµÄ¼üÅ̲Ù×÷ ×Ü»áÈÃÈËÆ£±¹£¬ÓÚÊǾÍÓÐÁËÓóÌÐòÀ´´úÌæÈËÃÇ°´¼üµÄ·½·¨£¬ÕâÑù¿ÉÒ԰ѺܶàÖظ´ÐԵļüÅ̲Ù×÷½»¸ø³ÌÐòÀ´Ä£Ä⣬ʡÁ˺ܶྫÁ¦£¬°´¼ü¾«Áé¾ÍÊÇÕâÑùµÄÒ»¸öÈí¼þ¡£ÄÇô ÎÒÃÇÔõÑù²Å ......

VB MSHFLEXGRID MSHFLEXGRID ͬʱѡÖв»Á¬ÐøµÄ¶àÐÐ

  ÔÚ¹¤³ÌÖÐÌí¼ÓÒ»¸öÀàÄ£¿é£¬ÃûΪ   Selection  
  È»ºó¼ÓÈëÒÔÏ´úÂ룺  
   
  Dim   colRows   As   Collection  
  Dim   ControlKey   As   Boolean  
  Public   WithEvents   flx   As   M ......

vbÓÃapiµ÷ÓöԻ°¿ò

½¨Ò»¸öÄ£¿é
Public Declare Function GetOpenFileName Lib "comdlg32.dll" Alias "GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As Long
Public Type OPENFILENAME
lStructSize As Long
hwndOwner As Long
hInstance As Long
lpstrFilter As String
lpstrCustomFilt ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØͼ | ¸ÓICP±¸09004571ºÅ