過去ログ

                                Page     131
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
   通常モードに戻る  ┃  INDEX  ┃  ≪前へ  │  次へ≫   
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
 ▼ListBoxをコマンドボタンで最終行に移動したい。  やまざき 02/12/9(月) 12:12
   ┗Re:ListBoxをコマンドボタンで最終行に移動したい。  こうちゃん 02/12/9(月) 13:47
      ┗1ページずつスクロールするにはどうするんでしょう。  やまざき 02/12/9(月) 18:46
         ┗Re:1ページずつスクロールするにはどうするんでしょう。  やまざき 02/12/9(月) 18:55

 ───────────────────────────────────────
 ■題名 : ListBoxをコマンドボタンで最終行に移動したい。
 ■名前 : やまざき
 ■日付 : 02/12/9(月) 12:12
 -------------------------------------------------------------------------
    リストボックスに表示される行数が多くなってしまったため、スクロールバーで何回もスクロールさせないと、最終行まで行き着けなくなってしまいました。そこで最終行に一発で行き着けるコマンドボタンを作ろうと思っています。
 プロパティーを探してみると、ListCount、ListIndexがでてきたので、
  With Ctl
    .ListIndex=.ListCount-1
  End With
としたところ、ListIndexには値は入らないようです。ListIndexに定数を入れてもダメでした。どなたか御知恵拝借できませんでしょうか。よろしくお願いします。

 ───────────────────────────────────────  ■題名 : Re:ListBoxをコマンドボタンで最終行に移動したい。  ■名前 : こうちゃん <nakajima19@hotmail.com>  ■日付 : 02/12/9(月) 13:47  -------------------------------------------------------------------------
   やまざきさん、こんにちは

> リストボックスに表示される行数が多くなってしまったため、スクロールバーで何回もスクロールさせないと、最終行まで行き着けなくなってしまいました。そこで最終行に一発で行き着けるコマンドボタンを作ろうと思っています。
> プロパティーを探してみると、ListCount、ListIndexがでてきたので、
>  With Ctl
>    .ListIndex=.ListCount-1
>  End With
>としたところ、ListIndexには値は入らないようです。ListIndexに定数を入れてもダメでした。どなたか御知恵拝借できませんでしょうか。よろしくお願いします。

ListIndexは値の取得しかできないのではないのかと思います。
リストの最終行に移動するなら、Valueプロパティに最終行の値を設定したらいかがでしょう。

Private Sub コマンド1_Click()

   Me.Ctl.Value = Me.Ctl.ItemData(Me.Ctl.ListCount - 1)

End Sub

 ───────────────────────────────────────  ■題名 : 1ページずつスクロールするにはどうするんでしょう。  ■名前 : やまざき  ■日付 : 02/12/9(月) 18:46  -------------------------------------------------------------------------
    ありがとうございます。ちゃんとできました。続いて申し訳ありませんが、早送りのように、決まった行数づつ1クリックでスクロールするにはどうしたら良いんでしょうか。教えていただけますか。

 ───────────────────────────────────────  ■題名 : Re:1ページずつスクロールするにはどうするんでしょう。  ■名前 : やまざき  ■日付 : 02/12/9(月) 18:55  -------------------------------------------------------------------------
   ごめんなさい。やってみたらすぐ出来ました。失礼しました。今後ともよろしくお願いします。

━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━    通常モードに戻る  ┃  INDEX  ┃  ≪前へ  │  次へ≫    ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━                                 Page 131