Option Explicit

'フォームをロードしました
Private Sub Form_Load()
    Dim strCommonPath As String
    
    '共通したパスを代入します
    strCommonPath = App.Path & "\exa"
    
    '参照分割ファイルのパスを指定します
    txtDivSrcPath.Text = strCommonPath & "\sample.gif"
    '分割したファイルのパスを指定します
    txtDivOutPath.Text = strCommonPath & "\sample(div)"
    txtDivFileSize.Text = 2000
    
    '拡張子0000のヘッダファイルを指定します
    txtJoinHeadPath.Text = strCommonPath & "\sample(div).0000"
    '連結したファイルをjoinフォルダに置きます
    txtJoinOutDirPath.Text = strCommonPath & "\join\"
End Sub

'分割ボタンをクリックしました
Private Sub cmdDiv_Click()
    
    'ダブルクリックを防ぐため
    'イベントの受け付けを無効にします
    If cmdDiv.Enabled = False Then Exit Sub
    cmdDiv.Enabled = False
    
    'イメージをクリアにします
    imgJoinImage.Picture = LoadPicture
    
    '第2引数は、分割ファイルの出力ファイルパスです
    'Tempフォルダなどに移動することも考えて
    '第2引数を付けました
    FileDivision txtDivSrcPath.Text, txtDivOutPath, CLng(txtDivFileSize.Text)
    
    'イベントの受け付けを有効にします
    cmdDiv.Enabled = True
    
End Sub

'連結ボタンをクリックしました
Private Sub cmdJoin_Click()
    
    'ダブルクリックを防ぐため
    'イベントの受け付けを無効にします
    If cmdJoin.Enabled = False Then Exit Sub
    cmdJoin.Enabled = False
    
    '分割ファイルを連結します
    FileJoin txtJoinHeadPath.Text, txtJoinOutDirPath.Text
    
    'イベントの受け付けを有効にします
    cmdJoin.Enabled = True
    
End Sub

'連結したイメージの読み込みボタンをクリックしました
Private Sub cmdJoinImage_Click()
    'ファイルを読み込みます
    'Dir関数で適当なファイルを探します
    imgJoinImage.Picture = LoadPicture(txtJoinOutDirPath.Text & Dir(txtJoinOutDirPath.Text))
End Sub