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

投稿日： 2004/10/18(Mon) 12:13
投稿者： 旅人A
Ｅメール：
ＵＲＬ：
タイトル： Re: 初心者の質問。

１．大小比較
全ての入力された値を取得して、ソート。
大きいほうの上から二つを取得。

２．フォント変更
何回目に押されたボタンなのかを変数で保持しておく。
1回目：Bold
2回目：普通
3回目：Italic

３．サイズ変更
２と同様に、何回目に押されたボタンかを記憶する。

以下、２のサンプルソース
※ラベルとコマンドボタンがあると仮定してます。

Public cnt As Integer

Private Sub Command1_Click()

    Select Case cnt
        Case 0 '1回目
            Label1.FontItalic = False
            Label1.FontBold = True
            cnt = cnt + 1
        Case 1 '2回目
            Label1.FontBold = False
            cnt = cnt + 1
        Case 2 '3回目
            Label1.FontItalic = True
            cnt = 0
        Case Else
    End Select
    
End Sub

Private Sub Form_Load()
    cnt = 0
End Sub

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

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