Met sore Bang Aksan Kurdin, sesuai petunjuk bang Aksan background form di masing2 PC sudah bisa tampil. Terimakasih.
-- In [email protected], "M. Aksan Kurdin" <[EMAIL PROTECTED]> wrote: > > apakah semua pc sudah ada direktory: > "C:\Documents and Settings\Owner\Desktop\aplikasi\Gambar\" > > dan apakah direktory tersebut sudah diisi gambar2 yang bersesuaian > dengan yang disebutkan dalam kode ? > > kenapa tidak pake direktori sendiri saja yang lebih > sederhana "c:\Aplikasi\Gambar", atau diletakkan di server (misalkan > SERVERKU) dan di sharing dengan folder name "Gambar", jadi ngambilnya > cukup nembak UNC-nya: > "\\SERVERKU\Gambar\namagambar.jpg" > > > Aksan Kurdin > > --- In [email protected], "andikprabowo" > <andikprabowo@> wrote: > > > > met sore forum acces yg ok. > > > > Andik mau tanya bagaimana cara tampilkan background form di PC > lain. > > saat ini saya pakai 3 pc, cuma waktu tampilkan background di pc 2 > dan > > 3 gambarnya tidak tampil. mohon saran?? > > > > Terimakasih > > > > Private Sub Form_Load() > > > > Select Case Day(Date) > > Case 1, 8, 15, 22, 29 > > [Form_Copy of MASTERDATA].Picture = "C:\Documents and > > Settings\Owner\Desktop\aplikasi\Gambar\garden.jpg" > > Case 2, 9, 16, 23, 30 > > [Form_Copy of MASTERDATA].Picture = "C:\Documents and > > Settings\Owner\Desktop\aplikasi\Gambar\forest.jpg" > > Case 3, 10, 17, 24, 31 > > [Form_Copy of MASTERDATA].Picture = "C:\Documents and > > Settings\Owner\Desktop\aplikasi\Gambar\Waterfall.jpg" > > Case 4, 11, 18, 25 > > [Form_Copy of MASTERDATA].Picture = "C:\Documents and > > Settings\Owner\Desktop\aplikasi\Gambar\Toco Toucan.jpg" > > Case 5, 12, 19, 26 > > [Form_Copy of MASTERDATA].Picture = "C:\Documents and > > Settings\Owner\Desktop\aplikasi\Gambar\Autumn Leaves.jpg" > > Case 6, 13, 20, 27 > > [Form_Copy of MASTERDATA].Picture = "C:\Documents and > > Settings\Owner\Desktop\aplikasi\Gambar\Creek.jpg" > > Case Else > > [Form_Copy of MASTERDATA].Picture = "C:\Documents and > > Settings\Owner\Desktop\aplikasi\Gambar\Desert Landscape.jpg" > > End Select > > End Sub > > >
