--- In [email protected], "Gugi Firmansyah" <[EMAIL PROTECTED]>
wrote:
>
> Halow rekan programmer VB..
> saya mau tanya neh, gimana caranya (sourcecode) untuk
> penyembunyian label copyright pada image digital?
>
> thanks atas bantuanna.
>
Semoga potongan kode ini dapat membantu mas...
========================= DARI SINI =========================
Option Explicit
'Buat 1 PictureBox
'Kode ini akan dijalankan tepat ketika PictureBox tersebut diklik
'Dibuat oleh Arief Wibowo ([EMAIL PROTECTED])
Private Sub Picture1_Click()
Dim Str As String
Dim Path As String
'Variabel ini saja yang diganti. Yang lainnya tidak perlu...
Str = "Copyright © 2007. Arief Softwares Lab ([EMAIL PROTECTED])"
Path = "C:\Documents and Settings\All Users\Documents\My
Pictures\Sample Pictures\Blue hills.jpg"
'Kode inti
Picture1.Picture = LoadPicture(Path) 'Buka gambar
Picture1.CurrentX = Picture1.Width - TextWidth(Str) 'Posisi
kursor di X - coba diatur
Picture1.CurrentY = Picture1.Height - TextHeight(Str) 'Posisi
kursor di Y - coba diatur
Picture1.Print Str 'Cetak teks
SavePicture Picture1.Picture, Path 'Simpan
kembali gambar tersebut
End Sub
========================= SAMPAI SINI =========================
--
PS: Semoga informasi ini dapat bermanfaat secara positif bagi kita
semua...
Kalau ada pertanyaan, silahkan hubungi saya ([EMAIL PROTECTED]) :-)
Salam,
('ariefwt' of as-lab)
