向各位老师请教个问题 - 编程论坛

#2

bczgvip2013-02-01 21:32

提问，

为什么一定要在文本框。

#3

seafish0112013-02-01 22:07

实在是不知道你想用这格式来做什么的。如果你只是想输出的话，那有个最愚蠢的方法：
先把TEXT1的MultiLine设置为TRUE
Private Sub Command1_Click()
    Text1 = "┌──┬──┬──┐" & vbCrLf & "│3  4│8  8│1  6│" & vbCrLf & "│ 七 │ 三 │ 五 │" & vbCrLf & "├──┼──┼──┤" _
            & vbCrLf & "│2  5│4  3│6  1│" & vbCrLf & "│ 六 │ 八 │ 一 │" & vbCrLf & "├──┼──┼──┤" & vbCrLf & _
             "│7  9│9  7│5  2│" & vbCrLf & "│ 二 │ 四 │ 九 │" & vbCrLf & "└──┴──┴──┘"
End Sub
如果不合适的话那见笑了。

#4

益西翁登2013-02-02 07:03

回复 2楼 bczgvip

不好意思，我刚刚学习VB制作，太多的东西还不懂，不在文体框中显示的话，还有更好的显示框显示的更好吗？

#5

益西翁登2013-02-02 07:19

回复 3楼 seafish011

谢谢老师指导，我按您的方法试了试，全排在一行去了，而不能输出一个完整的盘式，盼再给调试一下，谢谢！

[ 本帖最后由益西翁登于 2013-2-2 19:33 编辑 ]

#6

seafish0112013-02-02 08:27

回复 5楼益西翁登

先把Text1的MultiLine设置为True，如下图

只有本站会员才能查看附件，请登录

#7

益西翁登2013-02-02 19:37

谢谢seafish011老师，可以排成图形了，还有一个问题请老师指导，如何把左侧阿拉伯数字设为红色，右侧的数字设成兰色？

#8

seafish0112013-02-03 03:18

回复 7楼益西翁登

TextBox是没有这样的功能的。不过有个RichTextBox你可以考虑用下。

程序代码：

With RichTextBox1
    .SelStart = 0
    .SelLength = 5
    .SelColor = vbRed
    .SelStart = 6
    .SelLength = 4
    .SelColor = vbBlue
    .SelLength = 0
End With

#9

益西翁登2013-02-03 08:14

回复 8楼 seafish011

谢谢seafish011老师,您有QQ没有？
我的QQ452105239；我把全部代码发给您，请您指导，谢谢！

#10

qq3406483782013-03-07 18:01

厉害

#11

zhengang10262013-03-07 18:37

又学一招，

#12

zhengang10262013-03-07 18:42

回复 4楼益西翁登

窗体本身、Label、PictureBox、Image等都可作为输出载体，只是看你需要输出些什么。