独自のグラフィカル ブラウザを設計してみようと考えたことはありますか?実際、これはまったく難しいことではなく、VB プログラミングを使用して簡単に実現できます。
グラフィカル ブラウザの設計プロセスは次のとおりです。
1. VB を起動し、新しい標準プロジェクト ファイルを作成し、フォーム Form1 で Form1 のキャプションを「グラフィック ブラウザ」に変更します。
2. ツールボックスからドライブ、フォルダ、およびファイルのコントロールをフォームに追加します。ドライブの名前は Diver1、フォルダの名前は Dir1、ファイルの名前は File1 で、適切な位置を調整します。
3. ツールボックスから PictureBox コントロールをフォームに追加します。PictureBox の名前は Picture1 で、適切な位置、高さ、幅を調整します。
4. ツールボックスから、コマンド ボタン コントロールをフォームに追加します。コマンド ボタンの名前は Command1 で、適切な位置、高さ、幅を調整します。
5. フォームの空白スペースでマウスをダブルクリックしてコード編集ウィンドウをポップアップ表示し、次のコードを入力します。
PRivateSubForm_Load()
'アプリケーションが存在するドライブとディレクトリを現在のドライブとディレクトリとして設定します
'アプリは現在のアプリケーションオブジェクトです
Drive1.Drive=アプリのパス
Dir1.Path=アプリのパス
File1.Pattern="*.bmp;*.ico;*.wmf"
EndSub
6. フォーム上のドライバー コントロールをダブルクリックしてコード編集ウィンドウを表示し、次のコードを入力します。
PrivateSubDrive1_Change()
' 選択したドライブが変更されると、ディレクトリ リスト ボックスの内容が更新され、ディレクトリが変更されると、ディレクトリ リスト ボックスの Change イベントがトリガーされます。
Dir1.Path=ドライブ1.ドライブ
EndSub
7. フォームのフォルダー コントロール上でマウスをダブルクリックしてコード編集ウィンドウをポップアップ表示し、次のコードを入力します。
PrivateSubDir1_Change()
'ディレクトリが変更された場合、ファイルリストボックスの内容を更新します
ファイル1.パス=ディレクトリ1.パス
EndSub
8. フォームのファイル コントロール上でマウスをダブルクリックしてコード編集ウィンドウをポップアップ表示し、次のコードを入力します。
PrivateSubFile1_Click()
' ルート ディレクトリ。パスの最後の文字はバックスラッシュ "/" です (例: C:/)
' ルート ディレクトリ以外の場合、パスの最後の文字はバックスラッシュ "/" ではありません。
'完全なファイル名を取得するには、パスの末尾にバックスラッシュ「/」を追加する必要があります
IfRight(File1.Path,1)<>"/"Then
'ルートディレクトリ以外の場合は、パスの末尾にバックスラッシュ「/」を追加してください
tempstring=ファイル1.パス&&"/"&&ファイル1.ファイル名
それ以外
tempstring=ファイル1.パス&&"/"&&ファイル1.ファイル名
EndIf
'選択したファイルをロードします
Form1.Picture1.Picture=LoadPicture(tempstring)
EndSub
9. フォームの「閉じる」コントロールをダブルクリックしてコード編集ウィンドウを表示し、次のコードを入力します。
PrivateSubCommand1_Click()
アンロードミー
終わり
EndSub
ファイルを保存して実行すると、独自のグラフィカル ブラウザが完成します。 ->