[リストへもどる]   [VBレスキュー(花ちゃん)]
一括表示

投稿時間:2004/10/18(Mon) 10:24
投稿者名:いくみ
Eメール:
URL :
タイトル:
初心者の質問。
はじめまして。VB超初心者でアメリカの大学生です。正直教科書も、授業も英語なのでイマイチ理解
していません。皆さんにとってはとても下らない質問だとは思うのですがよろしくお願いします。一つ
は、ユーザーがいくつか数字を入れてコマンドボタンを押すたびに一番大きい数字2つを見つけるとい
うものです。もう一つは、コマンドボタンを押すたびにフォントを変えるという問題なのですが、一つ
のコマンドボタンは一回押すとBoldになって、もう一度押すと元に戻って、もう一度押すとIta
licになるというものです。そして、もう一つのボタンはサイズ用で、これはクリックするとサイズ
が大きくなったり小さくなったりするというものです。どなたか教えていただけたら光栄です。

投稿時間:2004/10/18(Mon) 12:13
投稿者名:旅人A
Eメール:
URL :
タイトル:
Re: 初心者の質問。
1.大小比較
全ての入力された値を取得して、ソート。
大きいほうの上から二つを取得。

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

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

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

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

投稿時間:2004/10/18(Mon) 13:11
投稿者名:kazuやん
Eメール:
URL :
タイトル:
Re: 初心者の質問。
1.大小比較の簡単なソース

    Dim a(5) As Integer
    Dim work As Integer
    
    a(0) = 0
    a(1) = 43
    a(2) = 11
    a(3) = 132
    a(4) = 215
    
    For i = 0 To 3
        For j = i + 1 To 4
            If a(i) < a(j) Then
                work = a(i)
                a(i) = a(j)
                a(j) = work
            End If
        Next
    Next
    
    MsgBox "最大:" & a(0)
    MsgBox "最小:" & a(1)

1〜3まではVBの基礎の部分です。
この「VBレスキュー(花ちゃん)」のページを一通り目を通してある程度理解する
事を勧めます。

> はじめまして。VB超初心者でアメリカの大学生です。正直教科書も、授業も英語なのでイマイチ理解
> していません。皆さんにとってはとても下らない質問だとは思うのですがよろしくお願いします。一つ
> は、ユーザーがいくつか数字を入れてコマンドボタンを押すたびに一番大きい数字2つを見つけるとい
> うものです。もう一つは、コマンドボタンを押すたびにフォントを変えるという問題なのですが、一つ
> のコマンドボタンは一回押すとBoldになって、もう一度押すと元に戻って、もう一度押すとIta
> licになるというものです。そして、もう一つのボタンはサイズ用で、これはクリックするとサイズ
> が大きくなったり小さくなったりするというものです。どなたか教えていただけたら光栄です。

投稿時間:2004/10/20(Wed) 10:00
投稿者名:いくみ
Eメール:
URL :
タイトル:
Re: 初心者の質問。
旅人A様、Kazuやん様、どうもありがとうございました。明日学校へ行って早速取り掛かろうと思い
ます。それと、もう一度基礎から見直してみます。