Cara melampirkan jendela konsol untuk Anda Visual Basic Program

Terjemahan Artikel Terjemahan Artikel
ID Artikel: 171654 - Melihat produk di mana artikel ini berlaku.
Perbesar semua | Perkecil semua

Pada Halaman ini

RINGKASAN

Artikel ini menunjukkan melampirkan jendela konsol untuk Anda Visual Basic aplikasi, menulis untuk itu, dan menjalankan aplikasi lain di konsol jendela.

INFORMASI LEBIH LANJUT

Jika aplikasi Visual Basic mulai dari aplikasi konsol, sistem operasi secara otomatis melepaskan dari konsol, mencegah Visual Basic aplikasi dari berinteraksi dengannya. Artikel ini tidak menyediakan metode untuk mencegah hal ini terjadi, tapi menunjukkan membuat jendela konsol baru yang aplikasi Anda dapat berinteraksi dengan. Itu juga menunjukkan menjalankan aplikasi konsol (berkas batch, dalam kasus ini) dari Visual Basic, yang memanfaatkan konsol dibuat.

PERINGATAN: PENGGUNAAN OLEH ANDA DARI KODE YANG TERSEDIA DI DALAM ARTIKEL INI ADALAH ANDA SENDIRI RISIKO. Microsoft menyediakan kode ini "sebagaimana adanya" tanpa garansi apapun, baik tersurat maupun tersirat, termasuk namun tidak terbatas pada tersirat jaminan dapat diperjualbelikan dan/atau kesesuaian untuk tujuan tertentu.

Contoh langkah demi langkah

  1. Gunakan Notepad untuk membuat file batch berikut:

    DIR/W

    dan menyimpannya sebagai C:\TEST.KELELAWAR
  2. Dalam Visual Basic, membuat proyek baru dengan bentuk dan modul.
  3. Jenis deklarasi API berikut dalam modul:
       Option Explicit
    
       Declare Function AllocConsole Lib "kernel32" () As Long
       Declare Function FreeConsole Lib "kernel32" () As Long
       Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) _
               As Long
       Declare Function GetStdHandle Lib "kernel32" (ByVal _
               nStdHandle As Long) As Long
       Declare Function WriteConsole Lib "kernel32" Alias "WriteConsoleA" _
               (ByVal hConsoleOutput As Long, lpBuffer As Any, ByVal _
               nNumberOfCharsToWrite As Long, lpNumberOfCharsWritten As Long, _
               lpReserved As Any) As Long
    
       Public Const STD_OUTPUT_HANDLE = -11&
    
    						
  4. Tambah CommandButton pada bentuk dan masukkan kode berikut:
       Dim hConsole As Long
    
       Private Sub Command1_Click()
       Dim Result As Long, sOut As String, cWritten As Long
         sOut = "Hi There" & vbCrLf
         Result = WriteConsole(hConsole, ByVal sOut, Len(sOut), cWritten, _
                               ByVal 0&)
         Shell "C:\TEST.BAT"
       End Sub
    
       Private Sub Form_Load()
         If AllocConsole() Then
           hConsole = GetStdHandle(STD_OUTPUT_HANDLE)
           If hConsole = 0 Then MsgBox "Couldn't allocate STDOUT"
         Else
           MsgBox "Couldn't allocate console"
         End If
       End Sub
    
       Private Sub Form_Unload(Cancel As Integer)
         CloseHandle hConsole
         FreeConsole
       End Sub
    
    						
  5. Menjalankan aplikasi. Jendela konsol kosong akan muncul.
  6. Klik CommandButton. Teks dalam sou dan output dari berkas batch akan muncul di konsol.
  7. Menutup formulir. Jendela konsol yang akan berakhir.
CATATAN:
  1. Jika Anda menjalankan aplikasi lain di konsol, itu akan berjalan asynchronously dengan aplikasi Visual Basic Anda. Output dari dua aplikasi dapat menjadi diselingi.
  2. Jika aplikasi konsol tidak dihentikan sebelum Anda Visual Basic aplikasi menutup, jendela konsol yang akan tetap terbuka.
  3. Jika Anda menutup jendela konsol, EXE Visual Basic akan berakhir. Jika Anda berada dalam lingkungan pengembangan Visual Basic (IDE), menutup jendela konsol akan mengakhiri IDE dan dapat menggantung konsol jendela. Gunakan pengatur tugas untuk mengakhiri tugas.

REFERENSI

Microsoft Windows SDK.

Properti

ID Artikel: 171654 - Kajian Terakhir: 16 September 2011 - Revisi: 2.0
Berlaku bagi:
  • Microsoft Visual Basic 6.0 Professional Edition
  • Microsoft Visual Basic 5.0 Control Creation Edition
  • Microsoft Visual Basic 5.0 Learning Edition
  • Microsoft Visual Basic 5.0 Professional Edition
  • Microsoft Visual Basic 5.0 Enterprise Edition
  • Microsoft Visual Basic 4.0 Standard Edition
Kata kunci: 
kbhowto kbmt KB171654 KbMtid
Penerjemahan Mesin
PENTING: Artikel ini diterjemahkan menggunakan perangkat lunak mesin penerjemah Microsoft dan bukan oleh seorang penerjemah. Microsoft menawarkan artikel yang diterjemahkan oleh seorang penerjemah maupun artikel yang diterjemahkan menggunakan mesin sehingga Anda akan memiliki akses ke seluruh artikel baru yang diterbitkan di Pangkalan Pengetahuan (Knowledge Base) dalam bahasa yang Anda gunakan. Namun, artikel yang diterjemahkan menggunakan mesin tidak selalu sempurna. Artikel tersebut mungkin memiliki kesalahan kosa kata, sintaksis, atau tata bahasa, hampir sama seperti orang asing yang berbicara dalam bahasa Anda. Microsoft tidak bertanggung jawab terhadap akurasi, kesalahan atau kerusakan yang disebabkan karena kesalahan penerjemahan konten atau penggunaannya oleh para pelanggan. Microsoft juga sering memperbarui perangkat lunak mesin penerjemah.
Klik disini untuk melihat versi Inggris dari artikel ini:171654

Berikan Masukan

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com