VB6.0用掲示板の過去のログ(No.2)−VBレスキュー(花ちゃん)
[記事リスト] [新規投稿] [新着記事] [ワード検索] [管理用]

投稿日： 2005/04/20(Wed) 10:50
投稿者： にまーる
Ｅメール：
ＵＲＬ：
タイトル： Re^2: ピクチャボックスへの文字表示

お世話になります。

説明不足ですみません。

簡単なコードしては、
FormにPictureBoxとCommandButton(2つ)を貼り付けます。
PictureBoxのプロパティとコードは以下です。

FontName=HG創英角ゴシックUB
FontSize=23
AutoRedraw=True

Private Sub Command1_Click()
    Dim strPath As String
    Dim intFno  As Integer
    Dim strText As String

    ' テキストファイルのパス
    strPath = "C:\Sample.txt"    
    
    intFno = FreeFile
    'ファイルをシーケンシャル入力モードで開く
    Open strPath For Input As #intFno
        strText = StrConv(InputB$(LOF(intFno), intFno), vbUnicode)
    Close #intFno

    Picture1.Height = Picture1.TextHeight(strText)
    Picture1.Cls
    Picture1.Print strText
End Sub

Private Sub Command2_Click()
    Picture1.Top = Form1.Height - Picture1.Height
End Sub

Command2ボタンを押下でPictureBoxの下側が見えるのですが、
何かモザイク的な形になってしまいました。
AutoRedrawをFalseにすると普通にテキストが見れます。

全体の完成イメージは、
映画のエンドロールのようなものです。

よろしくお願いします。

- 関連一覧ツリー （★ をクリックするとツリー全体を一括表示します）
- 返信フォーム （この記事に返信する場合は下記フォームから投稿して下さい）

- VBレスキュー(花ちゃん) - - Web Forum -