Membuat Spoiler Pada Blog di Blogspot

Menjelaskan cara membuat spoiler pada blog khususnya di blogspot/blogger - Untuk membuat spoiler pada blog copy dan pastekan kode di bawah ini:

<div style="margin: 5px 10px 10px;"> <div class="smallfont" style="margin-bottom: 1px;"> <b> <strong>Judul</strong> </b> <br /> <input onclick="if (this.parentNode.parentNode.getElementsByTagName('div')[1].getElementsByTagName('div')[0].style.display != '') { this.parentNode.parentNode.getElementsByTagName('div')[1].getElementsByTagName('div')[0].style.display = ''; this.innerText = ''; this.value = 'Hide'; } else { this.parentNode.parentNode.getElementsByTagName('div')[1].getElementsByTagName('div')[0].style.display = 'none'; this.innerText = ''; this.value = 'Show'; }" style="font-size: 10px; margin: 0px; padding: 0px; width: 70px;" type="button" value="Show" /> </div> <br /> <div class="alt2" style="border: 1px inset; margin: 0px; padding: 6px;"> <div style="display: none;"> <strong>Text spoiler yang akan ditampilkan</strong> </div> </div> </div>

Maka dari kode di atas, hasil yang ditampilkan adalah seperti di bawah ini:

Judul

Text spoiler yang akan ditampilkan

Rubahlah judul dan text spoilernya untuk disesuaikan dengan kebutuhan.

Catatan: Kode di atas harus di buat satu baris.

READ MORE - Membuat Spoiler Pada Blog di Blogspot

Rotasi Font Menggunakan Visual Basic 6.0

Modul untuk memutarkan atau merotasi font berdasarkan derajat tertentu serta koordinat tertentu menggunakan VB6 - Bagaimana kode serta contoh penggunaannya, bisa Anda lihat di bawah ini:

Option Explicit 
 
Public Type LOGFONT 
  lfHeight As Long 
  lfWidth As Long
  lfEscapement As Long
  lfOrientation As Long
  lfWeight As Long
  lfItalic As Byte
  lfUnderline As Byte
  lfStrikeOut As Byte
  lfCharSet As Byte
  lfOutPrecision As Byte
  lfClipPrecision As Byte
  lfQuality As Byte
  lfPitchAndFamily As Byte
  lfFacename As String * 33
End Type 
 
Public Declare Function CreateFontIndirect Lib "gdi32" Alias "CreateFontIndirectA" (lpLogFont As LOGFONT) As Long 
Public Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, ByVal hObject As Long) As Long 
Public Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long 
 
Public Sub RotateFont(pic As PictureBox, fontsize As Integer, fontname As String, x As Integer, y As Integer, degree As Integer, txt As String) 
         
    On Error GoTo ErrHandler
     
    Dim F As LOGFONT
    Dim hPrevFont As Long 
    Dim hFont As Long
    pic.Cls
 
    F.lfEscapement = 10 * Val(degree)
    F.lfFacename = fontname 
    F.lfHeight = (fontsize * -20) / Screen.TwipsPerPixelY 
    pic.fontname = "Arial Black" + Chr$(0) 
    hFont = CreateFontIndirect(F) 
    hPrevFont = SelectObject(pic.hdc, hFont) 
 
    pic.CurrentX = x
    pic.CurrentY = y
    pic.Print txt
     
    hFont = SelectObject(pic.hdc, hPrevFont)
    DeleteObject hFont 
    Exit Sub 
    
ErrHandler: 
 
    MsgBox Err.Description
     
End Sub 

Modul di atas memiliki 7 parameter, Adapun contoh penggunaannya sebagai berikut:

Private Sub Command1_Click() 
    RotateFont Picture1, 12, "Arial", 90, 2500, _ 
    40, "khoiriyyah.blogspot.com" 
'Keterangan: 
'    1. Picture1 = PictureBox 
'    2. 12 = ukuran huruf 
'    3. Arial = nama huruf 
'    4. 90 = koordinat X 
'    5. 2500 = koordinat Y 
'    6. 40 = derajat putaran (0 derajat = normal, 90 derajat = tegak lurus) 
'    7. khoiriyyah.blogspot.com = text yang dimasukan ke dalam PictureBox 
End Sub 

READ MORE - Rotasi Font Menggunakan Visual Basic 6.0

Menentukan Titik Koordinat Text Pada Watermark | VB6

Artikel yang menjelaskan cara menempatkan text (watermark) berdasarkan titik koordinat, posting ini merupakan kelanjutan dari posting sebelumnya mengenai dasar-dasar membuat software watermark (Belajar Visual Basic 6 untuk pemula melalui praktik). Selanjutnya agar text watermark dapat ditempatkan sesuai keinginan, maka kita harus menentukan titik koordinatnya terlebih dahulu. Adapun kode lengkap untuk menentukan titik koordinat text watermark adalah sebagai berikut:

'--------------------------------------------------------------------------------------- 
' http://khoiriyyah.blogspot.com 
' coder: Administrator 
'--------------------------------------------------------------------------------------- 
Option Explicit 

Dim intCurrentX As Integer 'variabel untuk menyimpan koordinat X 
Dim intCurrentY As Integer 'variabel untuk menyimpan koordinat Y 
 
Private Sub Command1_Click() 
    Picture1.Cls 'bersihkan Picture1 dari seluruh text 
    Picture1.CurrentX = intCurrentX 'ambil nilai X dari variabel di atas 
    Picture1.CurrentY = intCurrentY 'ambil nilai Y dari variabel di atas 
    Picture1.Print "http://khoiriyyah.blogspot.com" 'beri watermark! 
    SavePicture Picture1.Image, App.Path & "\watermark_sample.bmp" 'jadikan file dan simpan. 
End Sub 

Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) 
    intCurrentX = X 'masukan nilai X pada variabel berdasarkan koordinat klik mouse 
    intCurrentY = Y 'masukan nilai Y pada variabel berdasarkan koordinat klik mouse 
End Sub 

Dengan menggunakan kode di atas, maka kita dapat menentukan titik koordinat text watermark seperti pada gambar berikut:

Download Project

READ MORE - Menentukan Titik Koordinat Text Pada Watermark | VB6

Menonaktifkan/Disable Task Manager Menggunakan VB6

Posting yang menjelaskan mengenai cara menonaktifkan task manager melalui kode Visual Basic 6.0 - Mendisable atau menonaktifkan task manager terkadang diperlukan untuk pembuatan aplikasi-aplikasi tertentu sebut saja billing warnet. Umumnya kode yang digunakan untuk menonaktifkan task manager dengan mengubah nilai registry, namun berbeda dengan kode di bawah ini yang mendisable task manager tanpa mengubah nilai registry. Bagaimana implementasi kode untuk mendisable task manager, bisa Anda lihat di bawah ini:

'simpan kode di bawah pada module 
Option Explicit 

Private Declare Function Shell_NotifyIcon Lib "shell32" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, pnid As NOTIFYICONDATA) As Boolean 
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long 

Private Type NOTIFYICONDATA 
    cbSize As Long 
    hWnd As Long
    uId As Long
    uFlags As Long
    ucallbackMessage As Long
    hIcon As Long
    szTip As String * 64
End Type 

Private Const NIM_DELETE = &H2 
 
Public Function DisableTaskManager() 
    Dim tskWin As Long, t As NOTIFYICONDATA 
    Shell "taskmgr.exe", vbHide 
    Do Until tskWin <> 0 
        tskWin = FindWindow("#32770", "Windows Task Manager") 
    Loop 
    t.hWnd = tskWin
    Shell_NotifyIcon NIM_DELETE, t 
End Function 

Contoh penggunaan kode di atas:

Option Explicit 'simpan kode ini pada form 
 
Private Sub Form_Load() 
    DisableTaskManager 
End Sub 

READ MORE - Menonaktifkan/Disable Task Manager Menggunakan VB6