tagCANDY CGI VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
[ツリー表示へ]  [ワード検索]  [Home]

タイトル Re^2: コマンドボタンを押してフォームペイントをしたあとピクチャーボックスが消える。
投稿日: 2014/09/05(Fri) 20:57
投稿者ジェンガ
(general)
Dim k As Integer
ーーーーーーーーーーーーーーーー
Private Sub Command1_Click()
(次のページを表示)
hyouji
End Sub
ーーーーーーーーーーーーーーーー
Private Sub Command2_Click()
(前のページを表示)
hyouji
End Sub
ーーーーーーーーーーーーーーーー
Private Sub Form_Load()
(1ページ目を表示)
End Sub
ーーーーーーーーーーーーーーーー
Sub hyouji()
(何ページをだしているかラベルで表示)
If (k = 1) Then
(コマンドボタンの色設定)
ElseIf (k = 2) Or (k = 3) Or (k = 4) Or (k = 5) Or (k = 6) Or (k = 7) Then
(コマンドボタンの色設定)
  End If

If (k = 1) Then
(ピクチャーボックスに1ページ目を表示)
ElseIf (k = 2) Then
(ピクチャーボックスに2ページ目を表示)
ElseIf (k = 3) Then
(ピクチャーボックスに3ページ目を表示)
ElseIf (k = 4) Then
(ピクチャーボックスに4ページ目を表示)
ElseIf (k = 5) Then
(ピクチャーボックスに5ページ目を表示)
ElseIf (k = 6) Then
(ピクチャーボックスに6ページ目を表示)
ElseIf (k = 7) Then
(ピクチャーボックスに7ページ目を表示)
End If
End Sub
ーーーーーーーーーーーーーーーーーーーーーーー
Private Sub Form_Paint()

If (k = 1) Then
Scale (0, 0)-(100, 100)
Line (0, 0)-(100, 100), RGB(255, 255, 0), BF
ElseIf (k = 2) Or (k = 3) Or (k = 4) Or (k = 5) Or (k = 6) Or (k = 7) Then
Scale (0, 0)-(100, 100)
Line (0, 0)-(50, 100), RGB(255, 0, 0), BF
Line (50, 0)-(100, 100), RGB(0, 0, 255), BF

End If
End Sub
雑用掲示版に関連する画像を貼ります。
()で省略されたところのコードだけで再生しても問題はありませんでした。
PictureboxのVisibleはTrueでした。

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。