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

投稿日： 2005/07/26(Tue) 13:11
投稿者： Five
Ｅメール：
ＵＲＬ：
タイトル： ありがとうございました。

カスタムリソースでテキストファイルを追加して出力・表示する処理を作成し
なんとか思い通りに動いたのでこれでいこうと思います。

皆様ありがとうございました。

Private Sub Btn_Text_Click()
  Dim StrFileName  As String
  Dim BytResData() As Byte
  Dim LngFileNo    As Long
  Dim LngRet       As Long
  
  On Error GoTo ERR_SUB
  
  LngFileNo = FreeFile()
  
  StrFileName = App.Path & "\Text.txt"
  
  BytResData = LoadResData(101, "CUSTOM")
  
  Open StrFileName For Binary Access Write As #LngFileNo
  Put #LngFileNo, , BytResData
  Close #LngFileNo
  
  Call Shell("Notepad " & StrFileName, vbNormalFocus)
End Sub

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

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