(ä¸)ãéæºæåå¨ç»
å¨VBä¸å¯å©ç¨Printå½ä»¤è¿è¡å符串çæ¾ç¤ºå·¥ä½,æ¤å½ä»¤ä¸è¬åªå¨å½åä½ç½®æ¾ç¤ºå符串,ä½å
·ä½æä½æ¶å¯éè¿CurrentXåCurrentYæ§å¶å符串æ¾ç¤ºä½ç½®,éè¿FontSizeæ§å¶åä½ç尺寸,éè¿ForeColoråBackColoræ§å¶å符çåæ¯è²åèæ¯è²ãå¦ææä¸è¿°çå项å±æ§å¼åéç¨RNDè¿è¡éæºäº§ç,å³ä¼å½¢æéæºå符æ¾ç¤ºææãæ¯å¦å¨ä¸ä¸ªå¾å½¢æ¡ä¸æ¾ç¤ºä¸äºæ°å¹´è´ºè¾,åæ¶ææ¾ç¾å¦çé³ä¹,é£å°æ¯ä¸ä»½æ好çæ°å¹´ç¤¼ç©ãéè¦æ³¨æä¸ç¹ï¼ç±äºåä½äºç¸è¦çï¼é¿æ¶é´æ¾ç¤ºä¼ä½¿çªå£æ¾å¾ä¹±ä¸äºï¼æ以æ好æä¸å®æ¶é´ç¨âCLS"å½ä»¤è¿è¡çªå£æ¸
é¤ãæ¤å¤è¯´æä¸ä¸é¢è²çæ§å¶æå·§,å¦æ使ç¨QBColor(Rndï¼15)æ¹å¼å®ä¹éæºé¢è²,åªè½å¨16ç§é¢è²ä¸éæºäº§ç,èéç¨RGB(Rndï¼256,Rndï¼256,Rndï¼256)æ¹å¼ï¼åå¯ä»¥äº§ç256ï¼256ï¼256ç§ä¸åçé¢è²ãå
·ä½æä½æ¹å¼è¯·è§æåCommand1ï¼Clickäºä»¶ä¸ç代ç ã
(äº)ãç«ä½å¾å½¢éæºå¨ç»
è½ç¶ç´æ¥å©ç¨ç»å¾è¯å¥å³å¯ä»¥å®ç°ç®åçå¨ç»,ä½å¦æéè¿è¿äºå½ä»¤ç»å¶æä¸å®çç«ä½å¾å½¢,并å®è¡éæºå¨ç»æä½,é£å°æ´å
·æç¹æ®çèºæ¯ææãæ¯å¦ä¸é¢ä¸¤è¡ç®åçå½ä»¤å°ç»åºä¸ä¸ªå
·æ强çç«ä½æææçä¸è§é¥ä½,å
¶ä¸(M,N)为é¥ä½ç顶端åæ :
Picture1.Line(m,nï¼2.5ï¼i)ï¼(mï¼i/2,nï¼2ï¼i),RGB(180,180,180)
Picture1.Line(m,nï¼2.5ï¼i)ï¼(mï¼i/2,nï¼2ï¼i),RGB(80,80,80)
å¦ææå±å¹çåºè²ç½®ä¸ºæé»è²,å¨æ¤çªå£å
çéæºä½ç½®ç»åºå¤§å°ä¸ä¸çä¸è§é¥,å°±åå¨é»è²çæ²æ¼ ä¸å»ºèµ·äºæ æ°çéåå¡,å
·æä¸ç§ç¹æ®çæ
趣ãå
·ä½æä½æ¹æ³è¯·è§æåç¨åºä¸çCommand2ï¼Clickäºä»¶ä¸ç代ç ã
(ä¸)ãæ¼ç¤ºç¨åºç¼å¶è¿ç¨
æåæ¯ä¸ä¸ªå®æä¸è¿°éæºå¨ç»çå®æ´æ¼ç¤ºç¨åºï¼éè¦å¨From1çªä½ä¸å®æ¾ä¸ä¸ªå¾å½¢æ¡Picture1åä¸ä¸ªå½ä»¤æé®Command1ï¼3,ç¶åæä¸é¢ç代ç å¡«å
¥ç¸åºçäºä»¶å¤ãè¿è¡æ¤ç¨åºä¹å,æä¸æé®1ï¼åå¨å¾å½¢æ¡ä¸è¿è¡éæºæåæ¾ç¤ºãæä¸æé®2ï¼åå¨å¾å½¢æ¡ä¸éæºæ¾ç¤ºä¸è§é¥ä½ãæä¸æé®3ï¼åéåºç¨åºãæ¤ç¨åºå¨Windows95ç³»ç»ä¸VB5.0ç¯å¢ä¸è°è¯éè¿ã
â²ç¨åºåå¤:
PrivateSubFormï¼Load()
Command1.Caption=ãéæºæåã
Command2.Caption=ãç«ä½å¾å½¢ã
Command3.Caption=ãéåºã
Form1.ScaleMode=1
Picture1.ScaleMode=1
EndSub
â²éæºæåå¨ç»
PrivateSubCommand1ï¼Click()
Picture1.Cls
Do
nn=Int(45ï¼Rnd)
Ifnn>0Then
Picture1.FontSize=nn
EndIf
Picture1.CurrentX=Rndï¼Picture1.ScaleWidthï¼1000
Picture1.CurrentY=Rndï¼Picture1.ScaleHeight
Picture1.ForeColor=RGB(Rndï¼256,Rndï¼256,Rndï¼256)
Picture1.PrintãéæºOK!ã
n=nï¼1
Ifn>50Then
n=0
Picture1.BackColor=QBColor(Rndï¼15)
EndIf
DoEvents
Loop
EndSub
â²ç«ä½éæºå¨ç»
PrivateSubCommand2ï¼Click()
Dimm,n
Picture1.DrawWidth=1
Picture1.BackColor=RGB(210,150,0)
Picture1.Cls
Do
m=Rndï¼Picture1.ScaleWidth
n=Rndï¼Picture1.ScaleHeightï¼500
Fori=0ToRndï¼800
Picture1.Line(m,nï¼2.5ï¼i)ï¼(mï¼i/2,nï¼2ï¼i),RGB(180,180,180)
Picture1.Line(m,nï¼2.5ï¼i)ï¼(mï¼i/2,nï¼2ï¼i),RGB(80,80,80)
Nexti
DoEvents
Loop
EndSub
â²ç»æç¨åº
PrivateSubCommand3ï¼Click()
End
EndSub->
温馨提示:内容为网友见解,仅供参考