もくじ
The following two tabs change content below.
taka
あることがキッカケでVBAを独学で勉強しました、今ではブログを通してVBAでできることを解説しつつ、VBAや他の言語の勉強、ブログ運営の勉強をしています(^^♪
最新記事 by taka (全て見る)
- VBAでATMのようなランダムキーを作ってみた - 2018年10月17日
- IT企業てどんな感じ？ブラックが多いの？実際に社長に聞いてきた！ - 2018年10月15日
- 【雑記】親知らずの抜糸してきました！意外と痛い！ - 2018年10月14日
- 【雑記】親知らず(水平埋没知歯)を抜きました！ - 2018年10月10日
- VBA SimpleAPIを使ってWikipediaの情報を簡単に取得してみた - 2018年10月3日
VBA ユーザーフォームのデザインを考えてみる3(メニュー作ってみた)
どうも、takaです、なんだかんだと三回目のこのシリーズ【VBA ユーザーフォームのデザインを考えてみる】ですが、今回は今まで紹介した記事の内容をもとに実際にメニューを作成してみました(^^♪
作成したメニューのイメージ
今回作成したメニューのイメージはこちら
どうでしょうか？少しマシなものと思ってもらえると助かります(。-∀-)
フッターに色を付ける
今回初めてしたことは【Labelコントロール】を使用してフッターに色を付けてデザイン性を持たせたことです(^^)/
デザインついでに、コピーライティングなどを記述してみるのもOKです(おまけで時計機能も付けました)
時計機能についてはこちら
用意するコントロール
今回のメニュー作成に使用したコントロールは以下の通りです。
※コントロールのオブジェクト名は基本変更していませんので連番で使用しています。
- Frameコントロール・・・・・1つ
- CommandButtonコントロール・5つ
- Labelコントロール・・・・・・1つ
作成したメニューのコード
今回作成したメニューのコードはこちらです。
仕組みはとっても簡単なので見てもらえればわかると思います(。-∀-)簡単な解説はコメント内でさせていただいています( ^ω^ )
後は実際にSampleファイルをダウンロードしてみてもらえると解りやすいと思います(^^)/
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 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 | Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) 'モジュールの一番上にペーストしてください。 Dim h As Long 'Height Dim w As Long 'Width Dim th As Long 'Topの高さ Dim i As Long Private Sub Frame1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) 'Frame1上にマウスが来た時の処理 For i = 1 To 4 Controls("CommandButton" & i).Font.Bold = False 'commandbuttonからポインターが外れてFrame1の上に来た時に太字をやめる Next h = Frame1.Height w = Frame1.Width Do While h < 50 'Frame1の高さを調整 Frame1.Height = h Sleep 0.3 h = h + 1 Loop Do While w < 336 'Frame1の幅を調整 Frame1.Width = w Sleep 0.3 w = w + 1 Loop End Sub Private Sub UserForm_Activate() '時計の設定 Dim counttime As Variant Do While UserForms.Count > 0 counttime = Format$(Time(), "h:nn:ss") Label1.Caption = "Copyright (C) 2017 taka All Rights Reserved " & counttime DoEvents Loop End Sub Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) 'UserForm上にマウスが来た時に書くコントロールの高さ・幅をもとに戻す。 h = Frame1.Height w = Frame1.Width Do While h > 17 'Frame1の高さを調整して元に戻す Frame1.Height = h Sleep 0.5 'sleep関数を使用して戻す時間を調整 h = h - 1 Loop Do While w > 60 'Frame1の幅を調整して元に戻す Frame1.Width = w Sleep 0.3 'sleep関数を使用して戻す時間を調整 w = w - 1 Loop CommandButton5.Font.Bold = False 'CommandButton5だけフレーム内にないのでこっちに記述 End Sub Private Sub UserForm_Initialize() 'Formを読み込み時にCommandButtonの背景やフォント色を指定 For i = 1 To 5 Controls("CommandButton" & i).BackColor = RGB(18, 83, 164) 'とりあえずRGB関数で指定することによって自由度が増す Controls("CommandButton" & i).ForeColor = &HFFFFFF '文字の色を指定 Next End Sub Private Sub CommandButton1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) 'CommandButton1の上にポインタがあるときは太字にする CommandButton1.Font.Bold = True End Sub Private Sub CommandButton2_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) 'CommandButton2の上にポインタがあるときは太字にする CommandButton2.Font.Bold = True End Sub Private Sub CommandButton3_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) 'CommandButton3の上にポインタがあるときは太字にする CommandButton3.Font.Bold = True End Sub Private Sub CommandButton4_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) 'CommandButton4の上にポインタがあるときは太字にする CommandButton4.Font.Bold = True End Sub Private Sub CommandButton5_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) 'CommandButton5の上にポインタがあるときは太字にする CommandButton5.Font.Bold = True End Sub |
ダウンロード
当サイトの免責事項をお読みになってからお使いください。
FormdesignSample3 27.63 KB
ファイルやコードの利用、WEBサイトの利用について
サンプルコードなどは当サイトの免責事項をよくお読みになってからお使いください。Sponsored Link
特別企画！IT企業の実情をIT企業の社長に聞いてみた！
独学者が多いVBAプログラマー「せっかくプログラム言語を覚えたし、IT企業に転職しようかな？でも、IT企業って良いイメージ聞かないし実際はどうなんだ？」という疑問にIT企業の社長に直に聞いてみました！！
使用OS：
コメントを残す