VBプログラマ質問スレ（6.0以前） Part55 at TECH

---

[2ch|▼Menu]

■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト
600:デフォルトの名無しさん 10/04/13 14:27:41 そうかー 文字データと装飾データを別に持てば意外といけるかー 601:デフォルトの名無しさん 10/04/13 14:33:24 むしろリッチテキスト使わずに オリジナルコントロール作っちゃえばいい UserContorolにPictureBox配置して PictureBoxにテキストファイルを描写 カーソルや範囲指定、日本語入力と色々と頑張る必要はあるけどな 602:デフォルトの名無しさん 10/04/13 14:42:27 結論　古いVBではエディタは作れない 603:デフォルトの名無しさん 10/04/13 14:56:59 できた Dim x as Integer, y As Integer, sen as Boolean Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) 　　Select Case KeyCode 　　　　Case 39 : x = x + 1 　　　　Case 40 : y = y + 1 　　　　Case 37 : x = x - 1 　　　　Case 38 : y = y - 1 　　　　Case 13 　　　　　　y = y + 1 　　　　　　x = 0 　　End Select 　　Me.Refresh End Sub Private Sub Form_Paint() 　　Me.PSet (0, 0) 　　Me.FontName = "ＭＳ ゴシック" 　　Me.Font.Size = 16 　　Me.Font.Bold = True 　　Print "あいうえお" 　　Print "かきくけこ" 　　Print "さしすせそ" 　　If sen Then Line (x * 20, y * 20)-(x * 20, y * 20 + 20) End Sub Private Sub Timer1_Timer() 　　If sen Then sen = False 　　Else sen = True 　　Me.Refresh End Sub

---

次ページ

最新レス表示

スレッドの検索

類似スレ一覧

話題のニュース

おまかせリスト

▼オプションを表示

レスジャンプ

mixiチェック！

Twitterに投稿

オプション

しおりを挟む

スレッドに書込

スレッドの一覧

暇つぶし2ch

---

5021日前に更新/172 KB
担当:undef