VB6.0用掲示板の過去のログ(No.2)−VBレスキュー(花ちゃん)
[記事リスト] [新規投稿] [新着記事] [ワード検索] [管理用]

投稿日： 2007/06/11(Mon) 18:38
投稿者： るしぇ
Ｅメール：
ＵＲＬ：
タイトル： Re^5: 画像の自動読み込み

> c言語の関数呼び出しみたいな感じになるんでしょうか？
…うん(＾＾；まぁ。そんな感じの構造ではあるけど、関数の定義を
先にする必要は無いし(後から定義していてもＶＢが見つけてくれます)
include で読み込む形ではなくて、クラスのメンバとして参照するから
ＶＢの方が楽かもしれません。

・・・ただ、このレベルは入門本を１冊読めば分かる話で、プログラムを
する以前の問題だと思います。掲示板で教わることじゃないっていうか、
これが分からないということは、他にたくさん足らないだろうと予想
できるわけです。そうなると、説明するたびに説明することが増えて、
『そのくらい最初に勉強しておけよ』ってなります。

入門本を買うか、
[Visual Basic 中学校]さんのようなサイトで授業を一通り読んでみるとか。。。
http://homepage1.nifty.com/rucio/main/main.htm

[VB6.0]動作検証していません。構造だけ理解してください。
Option Explicit

Private Sub Command1_Click()
    Dim strBmpFilePath() As String
    
    'ファイルパス取得
    strBmpFilePath = GetBmpFilePath(File1.Path)
    
    'ソート
    Call BubbleSort(strBmpFilePath)
    
    'エクセル表示
    Call DispExcel(strBmpFilePath)
    
End Sub

'ファイルパスを指定して、Bitmapファイルの一覧を取得する
Private Function GetBmpFilePath(ByVal SeachPath As String) As String() '←戻り値の指定
    Dim strMyFile() As String
    Dim strBMPFile  As String
    Dim intKen      As Integer
    Dim i           As Integer
    Dim kakutyousi  As String

    kakutyousi = "bmp"
    'ディレクトリー内の全ファイル・フォルダを読み込む
    strBMPFile = Dir$(SeachPath & "\", vbDirectory Or vbHidden Or vbSystem)
    
    'strBMPFileが空になるまで繰り返し
    Do While strBMPFile <> ""
       If StrComp(Right$(strBMPFile, 3), kakutyousi, 1) = 0 Then
          intKen = intKen + 1
          ReDim Preserve strMyFile(intKen)
          'ファイル名を配列に格納
          strMyFile(intKen) = strBMPFile
       End If
       strBMPFile = Dir$ '次のファイル名を読み込み
    Loop
    
    GetBmpFilePath = strMyFile '←戻り値の設定
End Function

- 関連一覧ツリー （★ をクリックするとツリー全体を一括表示します）
- 返信フォーム （この記事に返信する場合は下記フォームから投稿して下さい）

- VBレスキュー(花ちゃん) - - Web Forum -