VBÖÐCommondialog¿Ø¼þÖеÄshowfont·½·¨Ê¹ÓÃ
Çë½ÌÒ»¸öÓйØCommondialog¿Ø¼þµÄÎÊÌ⣨ʹshowfont·½·¨£©
µÚÒ»¸öÎÊÌ⣺
CommondialogÕâ¸ö¿Ø¼þµÄFlagsÊôÐÔÊDz»ÊÇÖ»ÄÜÔÚ´úÂëÖÐÉèÖÃ
ΪºÎÎÒÔÚÊôÐÔ¿òÀïµÄFlagsÒ»À¸ÖÐÊäÈëcdlCFScreenFonts£¨ÆÁÄ»×ÖÌ壩ºó Ìáʾ˵ ÎÞЧµÄÊôÐÔÖµ
µ«ÊÇÔÚ´°ÌåÔØÈë¹ý³ÌÖÐÊäÈë
commondialog1.flags=cdlCFScreenFonts ¾Í¿ÉÒÔ
µÚ¶þ¸öÎÊÌ⣺
£¨Ê¹ÓÃshowfont·½·¨£©
CommonDialog1.Flags = cdlCFBoth Or cdlCFEffects
ÕâÌõÓï¾äÎÒд³ÉCommonDialog1.Flags =cdlCFEffects
¾ÍÌáʾÎÒ˵ûÓа²×°×ÖÌå Çë°²×°
±ØÐëд³ÉCommonDialog1.Flags = cdlCFBoth Or cdlCFEffects
Âð
(1)¿ÉÒÔÉè¼ÆµÄʱºòÊäÈ룬µ«ÊÇÖ»ÄÜÊäÈëÊý×Ö¡£
cdlCFScreenFonts = 1£¬ÊäÈë 1 ¾ÍÐÐÁË¡£
(2)cdlCFBoth¾Í¿ÉÒÔÁË¡£
¶ÔÓÚµÚ¶þ¸öÎÊÌâ ºÃÏñֻдcdlCFBoth ³öÀ´µÄ×ÖÌå¶Ô»°¿ò ×óϽÇÊÇûÓÐЧ¹ûÕâ¸öFrameµÄ
Ŷ
ллÄú°¡
Ïà¹ØÎÊ´ð£º
Printer.ScaleMode = 6
6±íʾºÁÃ×
Printer.PaperSize = vbPRPSA4
'³õÊ¼×ø±ê
x = 1
y = 4
'×î´óµÄÏß¿ð
Printer.DrawStyle = 0
Printer.Line (x, y)-(x + 132.5, y) ......
´ó¼ÒºÃ£¬Îʸövb´òÓ¡ÎÊÌâ
printer.print "dsff"
.....
....
Printer.EndDoc
´òÓ¡³É¹¦ºóÎÒ½«Ö´ÐÐ
sqlstr = "update vc_yh set pr=' ÒÑ´òÓ¡ ', ......
±ÈÈç½ø³Ì¼ÓÔØÐµijÌÐò¡£
ÔÚÆäÔËÐÐ֮ǰ×èÖ¹¡£
È»ºóÔÊÐíºó·ÅÐС£
±ÈÈç³ÌÐòÖ÷Îļþ·¾¶ÊÇc:\test\test.exe£¬½¨Á¢ÄÚÈÝÈÎÒâµÄÎļþc:\test\test.exe.manifest¡£
¾ÍÊDz»ÖªµÀ³ÌÐòÎļþ·¾¶¡£
ÉèÖ ......
´ó¼Ò°ïæ¿´Ï£¬ÔÚVBÖÐÓиö±äÁ¿str=0.00016ÈçºÎ¼ÆËãÈÃËü±ä³ÉÊÇ1.6*10µÄ4´Î·½
»¹ÓиöÎÊÌâÊǹØÓÚÊý¾Ý¿â²éѯµÄ
ÔÚACCESSÖÐÈçºÎ²éѯʱ£¬ÅжÏ×Ö¶Î1ÊÇ·ñΪ¿ÕÈç¹ûÊÇÔò²éѯ×Ö¶Î2
ÔÚSQLÖÐÓ¦¸ÃÊÇselect case ×Ö¶Î1 isn ......
Private Sub Command1_Click(Index As Integer)
Select Case Index
Case 3 ¡¯刪³ý
Dim YesNo As String
&nbs ......