テキストに線を引くには？

MI 2003-09-03 03:29:55 No: 108445

テキストに縦線を引くことは可能でしょうか？
(指定バイト目を分かりやすくするため)
ご存知のかた教えて下さい。

魔界の仮面弁士 2003-09-03 06:48:44 No: 108446

『テキストに縦線を引く』……って、

┏━┯━┯━┯━┯━┯━┯━┯━┓
┃こ│う│い│う│こ│と│で│は┃
┣━┿━┿━┿━┿━┿━┿━┿━┫
┃な│い│の│で│す│よ│ね│？┃
┗━┷━┷━┷━┷━┷━┷━┷━┛

MI 2003-09-03 08:08:24 No: 108447

魔界の仮面弁士さん回答有難うございます。
やはり説明が分かり難かったですね。すいません。

仮にテキストに100行あるとすると10バイト目を指定すれば1行目から100行目まで
一本の線を引きたいのです。(境界線を表示したいのです)
できれば線を引く時にデータに影響が無いようにしたいのでテキストの
内容と境界線は別々にしたいのですが可能でしょうか？

なんだかピンとこない説明かもしれませんがお願いします。

oku URL 2003-09-03 08:33:16 No: 108448

うーんやっぱりよくわかりませんね。
>仮にテキストに100行あるとすると
>10バイト目を指定すれば
10バイト目ってどこから？ファイルの先頭？
それともその行の先頭から？
>1行目から100行目まで
10バイト目(何の10バイト目かわかりませんが)を指定して
なぜに1行目から100行目まで？
10バイト目に縦線を引きたいって事ですか？
画像エディタ等にあるグリッドラインみたいな物って事ですか？

よねＫＥＮ 2003-09-03 18:46:53 No: 108449

回答ではないですが、
テキストエディタにある現在行表示みたいな機能の
縦方向版のような感じじゃないでしょうか。

nanashi 2003-09-03 19:17:36 No: 108450

TextBoxの上にWidthを1にしたPictureBoxを重ねて、Moveメソッドで適当に動かす……ってのじゃダメなんだろうな〜（＾＾；

MI 2003-09-03 21:55:45 No: 108451

皆さん回答ありがとうございます。
どうも説明が下手なもので・・。ご迷惑おかけします。
グリッドラインのようなものです。固定長のデータを
扱うときにあったら良いなと思いまして。
こんな説明で分かっていただけますか？

oku URL 2003-09-04 07:33:31 No: 108452

nanashiさんのアイデアで駄目ですか？

こんな感じで、どうですか？
ピクチャボックスとボタンとテキストボックス２つを用意してください。

Private Sub Form_Load()
    With Text1
        .FontName = "ＭＳゴシック"
        .FontSize = 11
    End With

    With Picture1
        .AutoRedraw = True
        .BackColor = vbBlack
        .FontName = Text1.FontName
        .FontSize = Text1.FontSize
        .Top = Text1.Top
        .Height = Text1.Height
        .Width = 1
    End With
End Sub

Private Sub Command1_Click()
    Dim intSize     As Integer

    ' 1文字の幅を算出
    intSize = Picture1.TextWidth("1")
    Picture1.Move Text1.Left + intSize * Text2.Text
End Sub

テキストボックス２に縦線を移動したいバイト位置を入力してみて下さい。

MI 2003-09-04 09:34:33 No: 108453

okuさん分かり易い回答有難うございます。
非常に良いのですが出来ればスクロールした時に線も
同時に動くようにしたいのです。またスクロール
しなければ見えない部分にも線が引けるようにしたい
と思っております。何だかわがままっぽくなりましたが
考え方だけでも教えて下さい。宜しくお願いします。

oku URL 2003-09-04 10:12:34 No: 108454

うーーん確かテキストボックスには
スクロールしたって言うイベント無かったはずなんで
フックしないと駄目なのかな？
自分では役不足です。他の強者にパスッ！

ry 2003-09-04 17:28:29 No: 108455

RichTextとH/VScrollBarを使って自前で作るとか・・
大変そうです。

MI 2003-09-05 08:36:36 No: 108456

皆さん有難うございます。
うーん、以外に難しいのですね。やはりフックですかねー。
もう少し皆様の意見をまってみます。
(フックで頑張って見ます)

MI 2003-09-05 21:56:19 No: 108457

友人からCOBOL用のエディタにそんな機能が
あるという情報がありました。
FSDev.exeでクラスを調べてもらうと[AfxFrameOrView42]
であると教えてもらったのですが、ネットで調べても
全く分かりませんでした。どなたかご存知の方がおり
ましたら教えて下さい