Cara Mengirim Nilai Variabel Antar Class Pada Gambas

Buat dua Form dan Class (FMain dan Form1 misalnya).

Pertama

Pada FMain.form buat Buttton satu aja.

Perintah pada Fmain.class:

' Gambas class file

Public Sub Form_Open()

End

Public Sub btnGo_Click() 'Tombol kirim

Dim kirim As String

kirim = "sesuatu"

Form1.Penampung(kirim)

Form1.Show

End

Kedua

Pada Form1.form buat TextBox satu saja.

Perintah pada Form1.class

' Gambas class file

Terima As String

Public Sub Form_Open()

    TextBox1.Text = Terima

End

Public Sub Penampung(Kirim As String)

    Terima = Kirim

End

Result

By IGN User