vbʹÓÃpicturebox»ÇúÏßͼ
'Ìí¼Ó¸öpicture1ºÍcommand1
Option Explicit
Dim lngCenter As Long
Dim lngMax As Long
Dim lngPad&
Dim PCurrent As POINT, PLast As POINT
Private Type POINT
x As Long
y As Long
End Type
Private Sub Form_Load()
lngCenter = (Picture1.Top + Picture1.Height) / 2
lngMax = Picture1.Height
PLast.x = 0
PLast.y = lngCenter
Dim i&
For i = 0 To Picture1.Width Step 100
Picture1.Line (i, 0)-(i, Picture1.Height), &HFFC0C0
Next
For i = 0 To Picture1.Height Step 100
Picture1.Line (0, i)-(Picture1.Width, i), &HFFC0C0
Next
Picture1.DrawWidth = 1.5
Picture1.Line (0, lngCenter)-(Picture1.Width, lngCenter), vbBlue
Picture1.DrawWidth = 1
End Sub
Private Sub Timer1_Timer()
PCurrent.x = PCurrent.x + 50
Randomize
PCurrent.y = Rnd * lngMax
Picture1.Line (PCurrent.x, PCurrent.y)-(PLast.x, PLast.y), vbRed
PLast.x = PCurrent.x
PLast.y = PCurrent.y
End Sub
Private Sub Command1_Click()
Timer1.Enabled = Not Timer1.Enabled
End Sub
Ч¹ûͼ£º
Èç¹ûÐèÒª´øÓеã¹æÂÉÐÔ¿ÉÒÔ½«»ñµÃyµÄ×ø±êÉÔ¼Ó´¦ÀíÏ£º
Private Function getRndY() As Integer
Dim lngTmp%
If intRnd = 0 Then
Randomize
intRnd = Rnd * 3 + 1
End If
Randomize
lngTmp = Rnd * lngCenter
If PLast.y > lngCenter Then
getRndY = lngCenter + lngTmp
Else
getRndY = lngTmp
End If
intCurRnd = intCurRnd + 1
If intCurRnd > intRnd Then
Randomize
intRnd = Rnd * 3 + 1
&nb
Ïà¹ØÎĵµ£º
VBʵÏÖVC TabControl¿Ø¼þ
н¨Ò»¸ö¹¤³ÌÎļþProject1£¬
ÔÚ×ó²à¹¤¾ßÀ¸ÖеãÓÒ¼ü
ÔÚ³öÏÖµÄÑ¡ÏîÖеã“Components”£¬ÔÚ´ò¿ª´°¿ÚÖÐÕÒµ½“Controls”Ñ¡ÏîÒ²ÖеēMicrosoft Tabbed Dialog Control 6.0”£¬È»ºóµã“Ó¦ÓÔ“È·¶¨”Í˳ö¸Ãҳà ......
Private Sub Command12_Click()
Dim i As Integer
On Error GoTo ABC
ShowPrinterSetup Me
For i = 1 To Adodc1.Recordset.RecordCount
If Picture2.Picture <> LoadPicture("") Then
Printer.PaintPicture Picture2.Picture, 200, Picture1.Top + 1000
Else
......
VBµ÷ÓÃϵͳµÄ"´òÓ¡»úÉèÖÃ"ºÍ"Ò³ÃæÉèÖÃ".
Option Explicit
Const FW_NORMAL = 400
Const DEFAULT_CHARSET = 1
Const OUT_DEFAULT_PRECIS = 0
Const CLIP_DEFAULT_PRECIS = 0
Const DEFAULT_QUALITY = 0
Const DEFAULT_PITCH = 0
Const FF_ROMAN = 16
Const CF_PRINTERFONTS = &H2
Const C ......
ÕâÄêÍ·,ÔÚÕâ¸öÂÛ̳ÀïÃæÒѾûÓÐʲô¼¼ÊõÌùÁË...ºÇºÇ~·¢Ò»Æª¾ªÌìµØ,Æü¹íÉñµÄÌû×Ó.µ±È»Õâ¸öÖ»ÊÇÄ£Äâ¼üÅ̵ÄÖÕ¼«Ä£Äâ.ºÇºÇ~
¼üÅÌÊÇÎÒÃÇʹÓüÆËã»úµÄÒ»¸öºÜÖØÒªµÄÊäÈëÉ豸ÁË£¬¼´Ê¹ÔÚÊó±ê´óÐÐÆäµÀµÄ½ñÌ죬ºÜ¶à³ÌÐòÒÀÈ»Àë²»¿ª¼üÅÌÀ´²Ù×÷¡£µ«ÊÇÓÐʱºò£¬Ò»Ð©Öظ´ÐԵģ¬ºÜ·±ËöµÄ¼üÅ̲Ù×÷×Ü»áÈÃÈËÆ£±¹£¬ÓÚÊÇ ......
Private Sub Command1_Click()
Dim MyComm As New ADODB.Command '¶¨ÒåÒ»¸öÃüÁî¶ÔÏó
Dim Rs_GetList As New ADODB.Recordset '¶¨ÒåÒ»¸ö¼Ç¼¼¯¶ÔÏó
Dim param As ADODB.Parameter ......