VB中使用print方法改变文字大小 vb改print后的字体
vb6.0\u4e2d\u600e\u4e48\u6539\u53d8print\u51fa\u6765\u7684\u5b57\u4f53\u7684\u5927\u5c0f\u548c\u5b57\u4f53\u3002\u6211\u5df2\u7ecf\u628a\u5b57print\u51fa\u6765\u4e86\uff0c\u5c31\u662f\u592a\u5c0f\u4e86\u3002
\u6709\u95ee\u9898\u8bf7\u8ffd\u95ee\uff0c\u6ee1\u610f\u8bf7\u91c7\u7eb3\uff01
Private Sub Form_Load()
Dim s As String
s = Text1.Text & "\uff1a\u6b22\u8fce\u4f7f\u7528\u6211\u7684\u7b2c\u4e00\u4e2avb\u7a0b\u5e8f"
Me.Font.Size = 12 '\u4efb\u610f\u4f60\u60f3\u8981\u7684\u5b57\u4f53\u5927\u5c0f
Me.CurrentX = (Me.ScaleWidth - Me.TextWidth(s)) / 2 '\u5c45\u4e2d\u663e\u793a
Me.CurrentY = 200 '\u4efb\u610f\u4f60\u60f3\u8bbe\u7f6e\u7684\u79bb\u7a97\u53e3\u9876\u90e8\u7684\u8ddd\u79bb\uff0c\u4e0d\u8981\u8fd9\u4e00\u53e5\u4ee3\u7801\u5c31\u662f\u9ed8\u8ba4\u4e3a0
Me.Print s
End Sub
下面是一个例子(在窗体上加一个command1控件),仅供参考:
Option Explicit
Private Sub Command1_Click()'单击一次,输出的字就会大些
Me.Font.Size = Me.Font.Size + 4 '增加字号,你也可以设置具体数值
Print "用户"
End Sub
Private Sub Form_Load()
Me.AutoRedraw = True '自动重画窗体
End Sub
关注。貌似不可以。
为什么不用控件？
绛旓細Private Sub Form_Load()me.fontsize=100 End Sub Private Sub Command_Click()print "鏄剧ず瀛椾綋"End Sub
绛旓細!!! If L Mod 10 = 0 Then Text1.Text = Text1.Text & vbCrLf '!!! Next Next Text1.Text = Text1.Text & vbCrLf '!!! Text1.Text = Text1.Text & "鍏辨湁浠ヤ笂" & L & "缁勩" '!!!End Sub鏍囨湁!!!鐨琛屽氨鏄慨鏀硅繃鐨勬敞锛歍ext1鐨凪ulitLine灞炴у繀椤昏涓篢r...
绛旓細濡傛灉鍦ㄥ叿鏈夌己鐪佹樉绀虹┖闂鐨妯″潡澶浣跨敤姝ゆ柟娉曪紝鍒欓渶瑕 object銆備緥濡傦紝濡傛灉娌℃湁鎸囧畾瀵硅薄灏卞湪鏍囧噯妯″潡涓婅皟鐢ㄦ鏂规硶锛屽垯灏嗗鑷撮敊璇彂鐢燂紝浣嗘槸锛屽鏋滃湪绐椾綋妯″潡涓婅繘琛岃皟鐢紝鍒欎細鍦ㄧ獥浣撲笂鏄剧ず鈥渙utputlist鈥濄傛敞鎰 鍥犱负 Print 鏂规硶鏄寜鐓у瓧绗︽瘮渚嬭繘琛屾墦鍗帮紝鎵浠ュ瓧绗︽暟涓庡瓧绗︽墍鍗犳嵁鐨勫搴﹀浐瀹氱殑鍒楃殑鏁扮洰鏃犲叧銆備緥濡傦紝...
绛旓細璇曡瘯杩欎釜鏍囩wordwrap锛屽綋灞炴у间负false榛樿鏄紝琛ㄧず涓鏀瑰彉鏍囩鐨鍨傜洿鏂瑰悜澶у皬浠ラ傚簲鏍囩鍐呭鐨勫彉鍔紝璁剧疆涓簍rue鏃跺欙紝琛ㄧず灏嗘敼鍙樻爣绛剧殑鍨傜洿鏂瑰悜澶у皬浠ラ傚簲鏍囩鍐呭鐨勫彉鍔ㄣ
绛旓細1锛夊湪vb6涓紝print璇彞涓昏鏄悜绐椾綋杈撳嚭鏌愪簺鍐呭锛堜互瀛楃涓蹭负涓伙紝褰撶劧涔熷彲浠ユ槸鏁板瓧浠涔鐨锛夈備富瑕鐢ㄦ硶濡備笅锛歱rint spc(n)鎴栬卼ab(n)瑕佹墦鍗扮殑涓滆タ 鍏跺畠绗﹀彿 鍏朵腑spc(n)锛氱敤鏉ュ湪杈撳嚭涓彃鍏ョ┖鐧藉瓧绗︼紝杩欓噷锛宯 涓鸿鎻掑叆鐨勭┖鐧藉瓧绗︽暟銆倀ab(n)锛氱敤鏉ュ皢鎻掑叆鐐瑰畾浣嶅湪缁濆鍒楀彿涓婏紝杩欓噷锛宯 涓哄垪鍙枫浣跨敤鏃...
绛旓細print "a"鏄緭鍑哄瓧绗︿覆a 銆傚氨鏄洿鎺ヨ緭鍑哄紩鍙峰唴鐨勩俻rint a 鏄緭鍑虹▼搴忓唴 a鐨勫綋鍓嶅 print灏辨槸鎵撳嵃鐨勬剰鎬濄傛瘮濡傜┖鐨刾rint 鎰忔濆氨鏄┖琛屻傛瘮濡 a=3 b=4 print "a";a;b print 鏄剧ず鐨勭粨鏋滃氨鏄 a 3 4 锛堢┖琛岋級
绛旓細鍦ㄧ獥浣撲笂鎵撳嵃
绛旓細鏈夐棶棰樿杩介棶锛屾弧鎰忚閲囩撼锛
绛旓細涓轰簡鍦ㄧ獥浣撴垨鍥剧墖妗嗕笂鏄剧ず鏂囨湰锛浣跨敤 Print 鏂规硶锛屽皢璇ョ獥浣撴垨鍥剧墖妗鐨鍚嶇О鍔犲湪瀹冪殑鍓嶉潰鍗冲彲銆傛妸杈撳嚭鏂囨湰鍙戦佸埌鎵撳嵃鏈轰笂锛屽簲浣跨敤Printer瀵硅薄涓婄殑Print鏂规硶銆傛搷浣滄柟娉曞涓嬶細1銆侀鍏堢紪鍐欑獥浣擄紙璁惧叾濮撳悕涓篺orm1锛塩lick浜嬩欢銆傚嵆鍦ㄧ獥浣撲笂鍐欏叆涓涓猚ommand1鍛戒护鎸夐挳銆2銆佺紪鍐欎簨浠剁殑缂栫▼濡備笅銆3銆佽嫢鎯冲湪鍚屼竴涓獥浣...
绛旓細print a 杩欎釜a鏄彉閲忥紝a鐨鍊兼槸浠涔堬紝灏辨墦鍗拌緭鍑轰粈涔 print "a" 鏄剧ず涓涓瓧姣 a
