掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
テキストボックスに入力した数字を小さい順に並べてラベルに表示するには？ (ID:103173)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
> ノルマなので早く仕上げてしまいたいですが Recordset を利用したサンプル。 ' 参照設定で[Microsoft ActiveX Data Objects]を追加して、 ' フォーム上には Label をひとつ貼っておき、さらに ' TextBox のコントロール配列を任意の数だけ配置しておきます。 Option Explicit Private Sub Text1_Change(Index As Integer) Label1.Caption = GetValues() End Sub Private Sub Form_Load() Dim txt As TextBox For Each txt In Text1 txt.Text = "" Next End Sub Private Function GetValues() As String Dim rs As ADODB.Recordset Set rs = New ADODB.Recordset rs.Fields.Append "F", adInteger rs.Open Try: On Error GoTo Finally Dim txt As TextBox For Each txt In Text1 rs.AddNew "F", CLng(txt.Text) Next rs.Sort = "F" rs.MoveFirst GetValues = rs.GetString() Finally: rs.Close End Function
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2020 Takeshi Okamoto All Rights Reserved.