பகுதி - 07 - Microsoft Visual Basic 6.0

இன்றைய பாடத்தில் Form ஐ மறைய வைப்பது எப்படி என்று பார்ப்போம்.இதை வைத்து என்ன செய்யலாம்?என்று நீங்கள் கேட்பது எனக்கு விளங்குது....ஏற்கனவே பாடங்களில் பார்த்ததையும் இதையும் வைத்து ஒரு சின்ன மென்பொருள் உருவாக்க முடியும்..அது நிச்சயமாக உங்களுக்கு பிடிக்கும்...அதி புத்திசாலிகள் முடிந்தால் கண்டுபிடித்து உருவாக்கி பாருங்கள்...தொடரும் பாடங்களில் என்ன என்பதை சொல்கிறேன்...

>> VB ஐ Open செய்து கொள்ளுங்கள்
>> Properties Window வில் BorderStyle இற்கு 0 - None

>> Properties Window வில் BackColor

>> அடுத்து Module ஒன்றை இணைத்துக்கொள்ளுங்கள்

 >> கீழ் உள்ளதை அப்படியே copy & Paste செய்து கொள்ளுங்கள்.

Public Const LWA_COLORKEY = 1
Public Const LWA_ALPHA = 2
Public Const LWA_BOTH = 3
Public Const WS_EX_LAYERED = &H80000
Public Const GWL_EXSTYLE = -20
Public Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal color As Long, ByVal X As Byte, ByVal alpha As Long) As Boolean
Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Public Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Sub SetTranslucent(ThehWnd As Long, color As Long, nTrans As Integer, flag As Byte)
    Dim attrib As Long
    attrib = GetWindowLong(ThehWnd, GWL_EXSTYLE)
    SetWindowLong ThehWnd, GWL_EXSTYLE, attrib Or WS_EX_LAYERED
    SetLayeredWindowAttributes ThehWnd, color, nTrans, flag
End Sub

 >> அடுத்து Form இல் Double click செய்து Activate என்ற இடத்தில் இந்த code ஐ copy  & paste செய்து கொள்ளுங்கள்.

Dim g_nTransparency As Integer
Dim color As Long
Dim flag As Byte

color = RGB(0, 0, 255)
    flag = 0
    If Me.Visible = True Then flag = flag Or LWA_COLORKEY
    g_nTransparency = 255
    If g_nTransparency < 0 Then g_nTransparency = 0
    If g_nTransparency > 255 Then g_nTransparency = 255
    SetTranslucent Me.hwnd, color, g_nTransparency, flag

 >> அடுத்து Form இல் KeyPress என்ற இடத்தில்

If KeyAscii = vbKeyEscape Then
        End
    End If

நான் Escape Key ஐ Press பன்னியதும் program நின்றுவிடும்படி செய்து இருக்கிறேன்....இதை உங்கள் விருப்பம்போல் அமைத்துக்கொள்ள முடியும்.தொடரும் பாடங்களில் பார்ப்போம்.

அவ்வளவுதான்....இனி F5 ஐ Press பன்னி இயக்கி பாருங்கள்..ஒன்றுமே தெரியாது...Escape Key ஐ Press பன்னுங்கள் program நின்று விடும்...