VB6 Source Code - Membuat Virtual Drive Menggunakan VB6

Mengenai cara membuat Virtual Drive menggunakan Visual Basic 6 - Bagaimanakah cara membuat virtual drive menggunakan VB6 dengan bantuan Command DOS Subst.exe, berikut adalah contohnya:

Private Function MountVirtualDrive(vd As String, path As String)
    'Perintah di bawah untuk melakukan mounting/membuat virtual drive
    'subst.exe x: c:/windows/system32 'melakukan mounting path terhadap virtual drive x
    Shell "Subst.exe " & vd & path
End Function

Private Function UnMountVirtualDrive(vd As String)
    'Perintah di bawah untuk unmounting/release virtual drive
    'subst.exe x: /d 'melakukan unmounting virtual drive x:
    Shell "Subst.exe " & vd & " /d"
End Function

Demikian cara sederhana mengenai pembuatan virtual drive menggunakan VB6 dengan bantuan DOS Command Subst.exe, semoga bermanfaat.

READ MORE - VB6 Source Code - Membuat Virtual Drive Menggunakan VB6

Cara Mem-Print Sebuah Gambar Yang Ada Dalam PictureBox

Mengenai cara mem-print gambar yang terdapat pada objek PictureBox menggunakan VB6 - Adapun cara mem-print gambar yang terdapat pada PictureBox menggunakan VB6 adalah sebagai berikut:

Private Sub Command1_Click()
    Printer.PaintPicture Picture1.Picture, 0, 0, Picture1.Width, Picture1.Height
    Printer.EndDoc
End Sub

Demikian sederhana cara mem-print sebuah gambar yang terdapat pada PictureBox menggunakan VB6.

READ MORE - Cara Mem-Print Sebuah Gambar Yang Ada Dalam PictureBox

Bagaimana Membuat Function Yang Mengandung Array - VB6

Mengenai cara membuat fungsi yang memperoleh (return) nilai array dalam bahasa pemrograman Visual Basic 6.0 - Untuk membuat fungsi yang mendapatkan nilai array dalam VB6, coba perhatikan bentuk fungsi berikut:

Private Function GetArrFunction() As String()
    Dim c(2) As String
    c(0) = 1
    c(1) = 100
    c(2) = 300
    GetArrFunction = c
End Function

Private Sub Command2_Click()
    Dim s() As String
    s = GetArrFunction
    MsgBox s(1) 'akan menghasilkan 100
End Sub

Demikianlah contoh sederhana mengenai cara membuat fungsi yang memperoleh (return) nilai array dalam VB6, semoga bermanfaat. nn

READ MORE - Bagaimana Membuat Function Yang Mengandung Array - VB6

Mengetahui Tanggal Berada Pada Posisi Minggu Ke Berapa?

Private Function GetDayInWeek(d As Date) As Integer
    Dim dt As Date, i As Integer
    For dt = CDate(Format$(d, "mm/yyyy")) To DateAdd("m", 1, d)
        If Weekday(dt) = 2 Then
            i = i + 1
            If dt > d Then Exit For
        End If
    Next
    GetDayInWeek = i
End Function

READ MORE - Mengetahui Tanggal Berada Pada Posisi Minggu Ke Berapa?