如何显示平方？ 在线等！

Question

Call P_Print(Pout%, 0, "字符串中间有平方显示m2")我要显示出平方，怎么写这个语句？

Answer 1

1.用PICTUREBOX
Private Sub Command1_Click()
        Picture1.Font.Size = 42
        Picture1.CurrentX = 100
        Picture1.CurrentY = 100
        Picture1.ForeColor = RGB(255, 0, 0)
        Picture1.Print "6"
        
        Picture1.CurrentX = 100 + TextWidth("6") * (42 / 9)
        Picture1.CurrentY = 100 - TextHeight("6") * 1 / 3
        Picture1.Font.Size = 24
        Picture1.Print "2"
End Sub

Answer 2

2.用RTF控件.
Private Sub Command2_Click()
        With RichTextBox1
        .Text = ""
        .SelFontSize = 42
        .SelText = 6
        .SelFontSize = 24
        .SelCharOffset = 270 * (42 / 24)
        .SelText = 2
        
        End With
End Sub

Answer 3

 我需要的是在字符串中输出显示？  MSTOP(陈建华(东莞立晨企资：  在线吗？我有几个VB急问题请教一下！[email protected]

Answer 4

Private Sub Command2_Click()
        With RichTextBox1
        .Text = ""
        .SelFontSize = 42
        .SelText = 6
        .SelFontSize = 24
        .SelCharOffset = 270 * (42 / 24)
        .SelText = 2
        
        End With
End Sub

Answer 5

我需要的是在字符串中输出显示？
'------------------------------
如果输出到打印机,用方法一.只要将PICTURE1改成PRINTER即可.

Answer 6

Call P_Print(Pout%, 0, "‡u")人家的程序这样就可以输出平方了，不知道中间是什么东西！源代码是日文的！

Answer 7

P_Print 是一个自定义的函数或类中的函数.
你将这个函数或原型贴出来看看.

Answer 8

Sub P_Print(Pout%, muki%, Md$)    If muki% <> 0 Then
        Md$ = Trim$(Md$)
        Md$ = Moji_Change$(Md$)
    End If    If muki% = 0 Then        F_Lugat.P1.Print Md$;
        
        If Pout% = 1 Then
            Printer.Print Md$;
        End If    Else
        
        Call P_Moji_Tate(Pout%, Md$)
        I = I
    End If
    
End Sub

Answer 9

那么调用Call P_Print(Pout%, 0, "2")是否应该打印出平方2 ？ 我试了显示的还是一样的2

Answer 10

TextWidth 这个函数是什么 ？编译不通过

Answer 11

那你试从WORD的插入中找找看吧.看看那个符号是,将该符号COPY出来(也许会变成乱码,但你可不理它).你将输出的字体设置为WORD中显示的字体即可.

Answer 12

WORD中拷贝过来，还是2，没有乱！

Answer 13

TextWidth 方法用以返回按 Form，PictureBox 或 Printer 的当前字体被打印的文本字符串的宽度。不支持命名参数。语法object.TextWidth(string)TextWidth 方法的语法包含下列部分：部分 描述 
object 可选的。一个对象表达式，其值为“应用于”列表中的一个对象。如果省略 object，则带有焦点的 Form 对象缺省为 object。 
String 必需的。一个字符串表达式，它用以计算确定其宽度的字符串。必须用括号包括该字符串表达式。 说明字符串宽度是以对 object 有效的 ScaleMode 属性设置或通过 Scale 方法的坐标系统来表示的。使用 TextWidth 可以确定文本显示需要的水平空间宽度。如果 string 含有嵌入的回车返回符，TextWidth 将返回最长行的宽度。

Answer 14

Private Sub Command1_Click()
         WITH PRICTURE1
        .Font.Size = 42
        .CurrentX = 100
        .CurrentY = 100
        .ForeColor = RGB(255, 0, 0)
        .Print "6"
        
        .CurrentX = 100 + .TextWidth("6") * (42 / 9)
        .CurrentY = 100 - .TextHeight("6") * 1 / 3
        .Font.Size = 24
        .Print "2"
        END WITH
End Sub