
ラベル:AccessVBA
Debug.print "選択されてない"
Else
Debug.print Me. リストボックス.ItemsSelected.Count & "個選択されてる"
End If
備忘録です。Access むかむかさんのお世話になりました
Dim strTxt As String
Dim i As Integer
Dim BoxSize As Long
Dim TxtSize As Long
Me.FontSize = 10
Me.[テキストボックス].FontSize = 10
strTxt = Me.[テキストボックス].Text
i = Me.[テキストボックス].FontSize
BoxSize = Me.[テキストボックス].Width
TxtSize = Me.TextWidth(strTxt)
Do While BoxSize < TxtSize
Me.[テキストボックス].FontSize = i - 1
Me.FontSize = i - 1
TxtSize = Me.TextWidth(strTxt)
i = i - 1
Loop
End Sub
なるほど〜
日 | 月 | 火 | 水 | 木 | 金 | 土 |
---|---|---|---|---|---|---|
1 | ||||||
2 | 3 | 4 | 5 | 6 | 7 | 8 |
9 | 10 | 11 | 12 | 13 | 14 | 15 |
16 | 17 | 18 | 19 | 20 | 21 | 22 |
23 | 24 | 25 | 26 | 27 | 28 |
この広告は90日以上新しい記事の投稿がないブログに表示されております。