VBプログラムにアイコンを追加する方法

VB を使用して小さなプログラムを作成し、アイコンを追加したいと考えました

アイコンを追加する場所について詳しく教えていただけますか?今からあなたのためにプログラムを書きますが、この友人にとって役に立つでしょうか。

まず、VB で新しいフォームを追加します。具体的な手順は次のとおりです: プロジェクト - フォームの追加 - 開く。

2 番目に、フォームにコマンド ボタンを追加します。cmddj (cmd click) という名前を付け、キャプション属性は「Open」です。

内容の微調整: "3 番目に、プロジェクト - パーツで "Microsoft Common Dialog Control 6.0" を選択し、ツールボックスで新しく作成したフォームにコントロールを追加します。コントロールは実行時には表示されず、サイズが異なることに注意してください。調整可能です。"

4 番目に、フォーム上にピクチャー コントロールを描画します。適度なサイズの名前属性は Picture1 です。

次に、cmddj コントロールにクリック イベントを追加します。コードは次のとおりです。

プライベートサブコマンド1_Click()

Dim を文字列として使用する

CommonDialog1.InitDir = "e:"

CommonDialog1.ShowOpen

s = CommonDialog1.ファイル名

Picture1.Picture = LoadPicture(s)

エンドサブ

プログラムの実行中に「開く」ボタンをクリックするとダイアログボックスが表示されますので、目的のアイコンを見つけて「開く」をクリックして開きます。

私が話していることが、この友人が望んでいることなのかどうかわかりません。私でなければ、別の方法があったでしょう。

フォームのアイコンを変更したい場合は、メインフォームのアイコン属性を変更するだけです。ここでは、アイコン ソースとして VB のアイコン ライブラリを使用することをお勧めします。

今回はここまでです。もし違っていたら、またご連絡ください。

VB6 0 生成プログラム ICO アイコンの問題

IconWorkshop またはその他のソフトウェアを使用して、アイコンの処理、アイコンの変更、解像度の低いアイコンや低品質のアイコンの追加を行います。よくわからない場合は、すべてを選択して保存してください。これらは VB で使用できます。リソース マネージャーで、 it is high 品質は良いですが、VB フォームのアイコンの品質が低いため、アイコンを設定するには以下のコードを使用する必要があります。

IconWorkshop 固有の手順:

アイコンを開いた後に複数の画像形式を追加します

このように、ファイルサイズを気にしない場合は、すべて選択することもできます

＃＃＃結果：＃＃＃

もちろん vb2005 の方がシンプルですが、vb2005 と vb6 では構文が大きく異なり、オリジナルのコードはほとんど使用できません

プライベート定数 ICON_BIG = 1

プライベート定数 ICON_SMALL = 0

プライベート定数 WM_SETICON = &H80

プライベート宣言関数 SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long、ByVal wMsg As Long、ByVal wParam As Long、lParam As Any) As Long

プライベート宣言関数 ExtractIcon Lib "shell32.dll" エイリアス "ExtractIconA" (ByVal hInst As Long、ByVal lpszExeFileName As String、ByVal nIconIndex As Long) As Long

パブリックサブセットウィンドウアイコン(hWnd As Long)

アイコンを長めに暗くする

hIcon = ExtractIcon(App.hInstance, App.EXEName & ".exe", 0)

SendMessage hWnd、WM_SETICON、ICON_SMALL、ByVal hIcon

SendMessage hWnd、WM_SETICON、ICON_BIG、ByVal hIcon

エンドサブ

以上がVBプログラムにアイコンを追加する方法の詳細内容です。詳細については、PHP 中国語 Web サイトの他の関連記事を参照してください。