VB中怎样用print方法在picturebox中输出数据 怎么在VB里picturebox中输出文字到特定位置
vb\u4e2d\u600e\u4e48\u8ba9picturebox\u8f93\u51fa\u591a\u884c\u6587\u5b57\u60f3\u8981\u8ba9picturebox\u8f93\u51fa\u591a\u884c\u6587\u5b57\uff0c\u53ef\u4ee5\u53cd\u590d\u4f7f\u7528Print\u65b9\u6cd5\u5728PictureBox\u63a7\u4ef6\u4e2d\u8f93\u51fa\u591a\u884c\u6587\u5b57\uff0c\u5728\u63d2\u5165\u7684\u6587\u5b57\u4e2d\u8f93\u5165\u56de\u8f66\u7b26\uff08\u5373Chr(13)\uff09\u5373\u53ef\uff0c\u6bcf\u4e00\u4e2aPrint\u8bed\u53e5\u53f3\u9762\u662f\u4e00\u884c\u7684\u5185\u5bb9\u3002
\u6b64\u5916\uff0c\u5728\u9700\u8981\u6362\u884c\u7684\u5730\u65b9\u52a0\u4e0a\u201c & vbCrlf & \u201d\u4ee3\u7801\u4e5f\u662f\u53ef\u4ee5\u5b9e\u73b0\u8ba9picturebox\u8f93\u51fa\u591a\u884c\u6587\u5b57\u7684\u3002
\u6269\u5c55\u8d44\u6599
PictureBox \u63a7\u4ef6\u548c Data \u63a7\u4ef6\u662f\u552f\u4e00\u53ef\u4ee5\u653e\u7f6e\u5728 MDI\u7a97\u4f53\u5185\u90e8\u533a\u57df\u7684\u6807\u51c6 Visual Basic \u63a7\u4ef6\u3002\u53ef\u4ee5\u4f7f\u7528\u8be5\u63a7\u4ef6\u5728\u5185\u90e8\u533a\u57df\u7684\u9876\u90e8\u6216\u5e95\u90e8\u5bf9\u63a7\u4ef6\u5206\u7ec4\uff0c\u4ee5\u521b\u5efa\u5de5\u5177\u680f\u6216\u72b6\u6001\u680f\u3002
\u6ce8\u610f Unisys Corporation \u6709\u4e00\u9879\u4e13\u5229\uff0c\u8be5\u4e13\u5229\u58f0\u79f0\u6d89\u53ca\u5230 GIF-LZW\u538b\u7f29\u6280\u672f\u7684\u67d0\u4e9b\u65b9\u9762\uff0c\u5728\u8be5\u6280\u672f\u4e2d\u4f7f\u7528\u4e86 PictureBox \u548c Image \u63a7\u4ef6\u3002Microsoft Corporation \u4e8e1996\u5e749\u6708\u83b7\u5f97\u4e86\u5bf9 Unisys LZW \u4e13\u5229\u7684\u4f7f\u7528\u8bb8\u53ef\u3002
\u7136\u800c\uff0cMicrosoft \u7684\u8bb8\u53ef\u8bc1\u5e76\u4e0d\u5ef6\u4f38\u5230\u90a3\u4e9b\u8f6f\u4ef6\u5f00\u53d1\u5546\u6216\u7b2c\u4e09\u65b9\uff0c\u4ed6\u4eec\u4f7f\u7528\u4efb\u4f55 Microsoft \u5de5\u5177\u5305\u3001\u8bed\u8a00\u5f00\u53d1\u6216\u64cd\u4f5c\u7cfb\u7edf\u4ea7\u54c1\u6765\u5728\u4ed6\u4eec\u81ea\u5df1\u7684\u4ea7\u54c1\u4e2d\u63d0\u4f9b GIF \u8bfb/\u5199\u548c/\u6216\u4efb\u4f55\u5176\u4ed6 LZW \u80fd\u529b\uff08\u4f8b\u5982\uff0c\u901a\u8fc7 DLL \u548c API\uff09\u3002
\u53c2\u8003\u8d44\u6599\u6765\u6e90\uff1a
\u767e\u5ea6\u767e\u79d1-PictureBox\u63a7\u4ef6
\u767e\u5ea6\u767e\u79d1-Visual Basic
Picture1.CurrentX = 0 \u2018\u6c34\u5e73\u5750\u6807Picture1.CurrentY = 0\u2019\u5782\u76f4\u5750\u6807Picture1.FontSize = 20 \u2018\u5b57\u4f53\u5927\u5c0fPicture1.Print "hello word" '\u8f93\u51fa\u6587\u5b57
Picture1.Print "r=" & a, "周长=" & b 改为Picture1.Print "r=" & a & “, 周长=" & b
绛旓細a=100 a=a+1=101 a>120鏉′欢涓嶆弧瓒筹紝缁撴潫寰幆 杈撳嚭101
绛旓細Dim a(20) As Integer Private Sub Command1_Click()For i = 1 To 20 a(i) = Rnd * 100 Print a(i);If i Mod 10 = 0 Then Print Next i Print p = CInt(InputBox("p="))Print "浠庝笅鏍" & p & "寮濮嬬殑鍗囧簭鏈夊簭娈电殑闀垮害="; leng(p)End Sub Function leng(ByVal p As ...
绛旓細If c > a And c > b Then Print a; b; c & vbCrLf & c; "鏄渶澶у"If a < b And a < c Then Print a; "鏄渶灏忓"If b < a And b < c Then Print b; "鏄渶灏忓"If c < a And c < b Then Print c; "鏄渶灏忓"End Sub 绠鍗曠偣鐢↖F鍒ゆ柇灏卞彲浠ヤ簡 ...
绛旓細绗竴杞細x="X",y="Y",z="Z"绗簩杞細y="b",z="c"绗笁杞細x="b",y="c",z="b"杈撳嚭锛歜cb
绛旓細Pid = m \ 2 '杩斿洖鍊间负m\2锛屽嵆杩斿洖m鐨勪竴鍗婏紝鍙栨暣鏁般侲nd Function 杩欓亾棰樼殑鍏抽敭鏄叧浜庨潤鎬佸彉閲忕殑涓涓煡璇嗙偣锛氬湪鍑芥暟浣擄紝涓涓澹版槑涓洪潤鎬佸彉閲忓湪杩欎竴鍑芥暟琚皟鐢ㄨ繃绋嬩腑缁存寔鍏跺间笉鍙樸傛墍浠ユ棤璁篜 = Pid(k, m): Print P鎵ц澶氬皯娆￠兘鏄6 杩欓亾棰樹篃闂繃浜 鍙傝冭祫鏂欙細<a href="http://zhidao...
绛旓細铏界劧N=1.23鍓嶉潰杩樻湁涓涓┖鏍肩殑锛屼綘瑕佹妸杩欎釜绌烘牸鍘绘帀寰楀埌鐨勬墠鏄2锛屽涓嬶細Private Sub Command1_Click()N = Str(InputBox("璇疯緭鍏ヤ竴涓疄鏁帮細"))p = InStr(Trim(N), ".")Print p Print Mid(N, p)End Sub 杈撳嚭缁撴灉鏄2 1.23(鏄庣櫧涓轰粈涔堟槸1.23鍚楋紵鍥犱负1鍓嶉潰杩樻湁涓涓┖鏍硷紝鎵浠ヤ粠绗簩涓...
绛旓細j=1 to i print "*";next j print next i 鍥惧舰涓夛細for i=6 to 1 step -1 for j=1 to i print "*";next j print next i 鍥惧舰鍥涳細for i=1 to 6 print spc(6-i);for j=1 to 2*i-1 print "*";next j print next i 杩欎簺閮芥槸鏈鍩烘湰鐨勮鍙ワ紝鎴戣寰楁病浠涔堝ソ璇存槑鐨勪簡 ...
绛旓細鍥犱负aj "456"锛屽畠杩炴帴鏂囨湰妗嗙殑鍐呭"789"鍚庡氨鍙樻垚"456789"锛岀劧鍚庤緭鍑烘鍊笺傞塀
绛旓細鐒跺悗鍐嶅惊鐜唴锛寈姘歌繙涓0 p涔熷氨涓0 浣犵▼搴忕殑鏈剰鏄痶浣滀负姝ｈ礋鍙浣跨敤鐨锛屾墍浠ワ紝绗笁琛屾敼涓簍=1锛屾垨鑰呮槸t=-1 杩欐牱浠ュ悗锛宲涓嶄細涓洪浂锛屼絾鏄惁鑳芥纭紝鍙栧喅浜庝綘鐨勫叕寮忋備簩銆佽繕鏈夊湪寰幆鍐咃紝姣忔閮界粰p璧嬫柊鍊笺備粠閫昏緫涓婅浼间箮娌℃湁蹇呰銆傛晠姝ゅ彲浠ユ妸杩欒涓庤緭鍑鸿鍙ュ悎骞讹細鍗冲彇娑堣繖琛岋紝鍚屾椂鍦╬rint閲杈撳嚭4鍊...
绛旓細nu=inputbox("nu=")寮瑰嚭涓緭鍏ュ璇濇鏄剧ず nu= 璁╀綘杈撳叆鐨勪笢瑗胯祴缁檔u n=str(nu)鎶 nu鍙橀噺鐨勫艰浆鎹㈡垚瀛楃涓 璧嬬粰 n p=instr(n,".")instr鏄煡鎵惧嚱鏁帮紝鏌ユ壘绗簩涓弬鏁扳.鈥濆湪n涓娆″嚭鐜扮殑浣嶇疆锛岃繑鍥炲肩粰p if p>0 then 濡傛灉p澶т簬 0锛屽氨鏄壘鍒颁簡锛屾病鎵惧埌p绛変簬0 print mid(n.p)鍦ㄧ獥浣...
