Private Sub CommandButton1_Click()
MsgBox ("hello")
End Sub

Private Sub Genertor_file_Click()

    Dim FilePath As String
    Dim FileContent As String

    ' 设定文件路径和名称
    FilePath_C = "D:TEST.c"
    FilePath_H = "D:TEST.h"
    FilePath_txt = "D:readme.txt"

     ' 写入文件
    Open FilePath_C For Output As #1
    Open FilePath_H For Output As #2
    Open FilePath_txt For Output As #3

    Print #1, "*/ "
    Print #1, "* File: TEST.c  "
    Print #1, "* Author: GDX  "
    Print #1, "* Date: 2024-11-21  "
    Print #1, "* Description: This is a main file of TEST.  "
    Print #1, "* Version: 1.0  "
    Print #1, "*/  "
    Print #1, "  "
    Print #1, "* Function: TEST   "
    Print #1, "* Description: TEST.c   "
    Print #1, "* Input: None   "
    Print #1, "* Output: None  "
    Print #1, "* Returns: None "
    Print #1, "*/ "
    Print #1, "  "
    Print #1, "* code comment */ "
    Print #1, "  "
    Print #1, "#include "
    Print #1, "int main()"
    Print #1, "{"
    Print #1, "  " & "//代码段"
    Print #1, "  " & "while(1);"
    Print #1, "}"
    Close #1

    Print #2, "#ifndef __TEST_H_"
    Print #2, "#define __TEST_H_"
    Print #2, "#endif"
    Close #2

    Print #3, "code log"
    Close #3
    MsgBox "C文件已成功生成!"
End Sub