• Vui lòng đọc nội qui diễn đàn để tránh bị xóa bài viết
• Tìm kiếm trước khi đặt câu hỏi

## Một số cách đóng ứng dụng ngộ nghĩnh

Các thủ thuật liên quan đến việc xử lý ứng dụng, biểu mẫu và control
clarkkent
Mạnh Thường Quân Bài viết: 1641
Ngày tham gia: T.Tư 16/04/2008 11:25 am
Đến từ: Chợ Lách - Bến Tre
Been thanked: 31 time
Liên hệ:

### Một số cách đóng ứng dụng ngộ nghĩnh

Thủ thuật: Một số cách đóng ứng dụng ngộ nghĩnh
Tác giả: Siêu nhân
Mô tả: Một số cách đóng ứng dụng ngộ nghĩnh... I

Mã: Chọn hết

`Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)Top = (Screen.Height - Width) / 1    Left = (Screen.Width - Height) / 2    Top = (Screen.Height - Width) / 3    Left = (Screen.Width - Height) / 4    Top = (Screen.Height - Width) / 5    Left = (Screen.Width - Height) / 6    Top = (Screen.Height - Width) / 7    Left = (Screen.Width - Height) / 8    Top = (Screen.Height - Width) / 9    Top = (Screen.Height - Width) / 10    Left = (Screen.Width - Height) / 12    Top = (Screen.Height - Width) / 13    Left = (Screen.Width - Height) / 14    Top = (Screen.Height - Width) / 15    Left = (Screen.Width - Height) / 16    Top = (Screen.Height - Width) / 17    Left = (Screen.Width - Height) / 18    Top = (Screen.Height - Width) / 19    Left = (Screen.Width - Height) / 20    Top = (Screen.Height - Width) / 21    Left = (Screen.Width - Height) / 22    Top = (Screen.Height - Width) / 23    Left = (Screen.Width - Height) / 24    Top = (Screen.Height - Width) / 25    Left = (Screen.Width - Height) / 26    Top = (Screen.Height - Width) / 27    Left = (Screen.Width - Height) / 28    Top = (Screen.Height - Width) / 29    Left = (Screen.Width - Height) / 30    Top = (Screen.Height - Width) / 31    Left = (Screen.Width - Height) / 32    Top = (Screen.Height - Width) / 31    Top = (Screen.Height - Width) / 30    Left = (Screen.Width - Height) / 29    Top = (Screen.Height - Width) / 28    Left = (Screen.Width - Height) / 27    Top = (Screen.Height - Width) / 26    Left = (Screen.Width - Height) / 25    Top = (Screen.Height - Width) / 24    Left = (Screen.Width - Height) / 23    Top = (Screen.Height - Width) / 22    Top = (Screen.Height - Width) / 21    Left = (Screen.Width - Height) / 20    Top = (Screen.Height - Width) / 19    Left = (Screen.Width - Height) / 18    Top = (Screen.Height - Width) / 17    Left = (Screen.Width - Height) / 16    Top = (Screen.Height - Width) / 15    Left = (Screen.Width - Height) / 14    Top = (Screen.Height - Width) / 13    Left = (Screen.Width - Height) / 12    Top = (Screen.Height - Width) / 11    Left = (Screen.Width - Height) / 10    Top = (Screen.Height - Width) / 9    Left = (Screen.Width - Height) / 8    Top = (Screen.Height - Width) / 7    Left = (Screen.Width - Height) / 6    Top = (Screen.Height - Width) / 5    Left = (Screen.Width - Height) / 4    Top = (Screen.Height - Width) / 3    Left = (Screen.Width - Height) / 2    Top = (Screen.Width + Height) / 2    Left = (Screen.Height + Width) / 3    Top = (Screen.Width + Height) / 4    Left = (Screen.Height + Width) / 5    Top = (Screen.Width + Height) / 6    Left = (Screen.Height + Width) / 7    Top = (Screen.Width + Height) / 8    Left = (Screen.Height + Width) / 9    Top = (Screen.Width + Height) / 10    Left = (Screen.Height + Width) / 11    Top = (Screen.Width + Height) / 12    Left = (Screen.Height + Width) / 13    Top = (Screen.Width + Height) / 14    Left = (Screen.Height + Width) / 15    Top = (Screen.Width + Height) / 16    Left = (Screen.Height + Width) / 17    Top = (Screen.Width + Height) / 18    Left = (Screen.Height + Width) / 19    Top = (Screen.Width + Height) / 20    Left = (Screen.Height + Width) / 21    Top = (Screen.Width + Height) / 22    Left = (Screen.Height + Width) / 23    Top = (Screen.Width + Height) / 24    Left = (Screen.Height + Width) / 25    Top = (Screen.Width + Height) / 26    Left = (Screen.Height + Width) / 27    Top = (Screen.Width + Height) / 28    Left = (Screen.Height + Width) / 29    Top = (Screen.Width + Height) / 30    Left = (Screen.Height + Width) / 31    Top = (Screen.Width + Height) / 32    Left = (Screen.Height + Left) / 31    Top = (Screen.Width + Top) / 30    Left = (Screen.Height + Left) / 29    Top = (Screen.Width + Top) / 28    Left = (Screen.Height + Left) / 27    Top = (Screen.Width + Top) / 26    Left = (Screen.Height + Left) / 25    Top = (Screen.Width + Top) / 24    Left = (Screen.Height + Left) / 23    Top = (Screen.Width + Top) / 22    Left = (Screen.Height + Left) / 21    Top = (Screen.Width + Top) / 20    Left = (Screen.Height + Left) / 19    Top = (Screen.Width + Top) / 18    Left = (Screen.Height + Left) / 17    Top = (Screen.Width + Top) / 16    Left = (Screen.Height + Left) / 15    Top = (Screen.Width + Top) / 14    Left = (Screen.Height + Left) / 13    Top = (Screen.Width + Top) / 12    Left = (Screen.Height + Left) / 11    Top = (Screen.Width + Top) / 10    Left = (Screen.Height + Left) / 9    Top = (Screen.Width + Top) / 8    Left = (Screen.Height + Left) / 7    Top = (Screen.Width + Top) / 6    Left = (Screen.Height + Left) / 5    Top = (Screen.Width + Top) / 4    Left = (Screen.Height + Left) / 3    Top = (Screen.Width + Top) / 2    Left = (Screen.Height + Left) / 1    End`

II

Mã: Chọn hết

`Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)    If Button = vbLeftButton Then        coolCloseForm Me, 20    Else        Dim a As New Form1        a.Height = a.Height / 2        a.Width = a.Width / 2        a.Show    End IfEnd SubPublic Function coolCloseForm(closeForm As Form, speed As Integer)       If speed = 0 Then        MsgBox "Speed cannot zero"        Exit Function    End If       On Error Resume Next            closeForm.ScaleMode = 1            closeForm.WindowState = 0        Do Until closeForm.Height <= 405        DoEvents            closeForm.Height = closeForm.Height - speed * 10            closeForm.Top = closeForm.Top + speed * 5        Loop                   Do Until closeForm.Width <= 1680        DoEvents            closeForm.Width = closeForm.Width - speed * 10            closeForm.Left = closeForm.Left + speed * 5        Loop            Unload closeFormEnd Function `

III

Mã: Chọn hết

`Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)    On Error Resume Next    Me.WindowState = 0     Do        Me.Top = Me.Top + 10        Me.Left = Me.Left + 10        Me.Width = Me.Width - 20        Me.Height = Me.Height - 20    Loop Until Me.Top >= Screen.Height    EndEnd Sub`

IV
Thêm 1 Timer

Mã: Chọn hết

`Private Sub Form_Load()    Timer1.Interval = 25    Timer1.Enabled = FalseEnd Sub Private Sub Timer1_Timer()    On Error Resume Next    Form1.Width = Form1.Width - 200        Form1.Left = Form1.Left + 100            Form1.Height = Form1.Height - 200                Form1.Top = Form1.Top + 100                    If Form1.Width < 150 And Form1.Height < 150 Then                         End                    End If                End Sub Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)    Timer1.Enabled = TrueEnd Sub`

Vâng ! Cám ơn bác TrungDung1977

V
Module

Mã: Chọn hết

`Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPrivate Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As LongPrivate Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As LongPrivate Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crey As Byte, ByVal bAlpha As Byte, ByVal dwFlags As Long) As LongPrivate Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As LongPrivate Declare Function GetWindowDC Lib "user32" (ByVal hwnd As Long) As LongPrivate Declare Function CreateCompatibleDC Lib "gdi32" (ByVal hdc As Long) As LongPrivate Declare Function CreateCompatibleBitmap Lib "gdi32" (ByVal hdc As Long, ByVal nWidth As Long, ByVal nHeight As Long) As LongPrivate Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, ByVal hObject As Long) As LongPrivate Declare Function GetDeviceCaps Lib "gdi32" (ByVal hdc As Long, ByVal nIndex As Long) As LongPrivate Declare Function CreateRectRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As LongPrivate Declare Function CombineRgn Lib "gdi32" (ByVal hDestRgn As Long, ByVal hSrcRgn1 As Long, ByVal hSrcRgn2 As Long, ByVal nCombineMode As Long) As LongPrivate Declare Function SetWindowRgn Lib "user32" (ByVal hwnd As Long, ByVal hRgn As Long, ByVal bRedraw As Long) As LongPrivate Declare Function GetSystemPaletteEntries Lib "gdi32" (ByVal hdc As Long, ByVal wStartIndex As Long, ByVal wNumEntries As Long, lpPaletteEntries As PALETTEENTRY) As LongPrivate Declare Function CreatePalette Lib "gdi32" (lpLogPalette As LOGPALETTE) As LongPrivate Declare Function SelectPalette Lib "gdi32" (ByVal hdc As Long, ByVal hPalette As Long, ByVal bForceBackground As Long) As LongPrivate Declare Function RealizePalette Lib "gdi32" (ByVal hdc As Long) As LongPrivate Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As LongPrivate Declare Function DeleteDC Lib "gdi32" (ByVal hdc As Long) As LongPrivate Declare Function ReleaseDC Lib "user32" (ByVal hwnd As Long, ByVal hdc As Long) As LongPrivate Declare Function OleCreatePictureIndirect Lib "olepro32.dll" (PicDesc As PicBmp, RefIID As GUID, ByVal fPictureOwnsHandle As Long, IPic As IPicture) As LongPublic 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 LongPrivate Type PALETTEENTRY    peRed As Byte    peGreen As Byte    peBlue As Byte    peFlags As ByteEnd TypePrivate Type LOGPALETTE    palVersion As Integer    palNumEntries As Integer    palPalEntry(255) As PALETTEENTRYEnd TypePrivate Type PicBmp    Size As Long    Type As Long    hBmp As Long    hPal As Long    Reserved As LongEnd TypePrivate Type GUID    Data1 As Long    Data2 As Integer    Data3 As Integer    Data4(7) As ByteEnd Type Private Const RASTERCAPS As Long = 38Private Const RC_PALETTE As Long = &H100Private Const SIZEPALETTE As Long = 104Private Const HWND_TOPMOST = -1Private Const SWP_NOMOVE = &H2Private Const SWP_NOSIZE = &H1Private Const flags = SWP_NOMOVE Or SWP_NOSIZEPrivate Const GWL_EXSTYLE = (-20)Private Const WS_EX_LAYERED = &H80000Private Const WS_EX_TRANSPARENT = &H20&Private Const LWA_ALPHA = &H2& Global Frm(1 To 12) As FrmCoolCloseGlobal Frm2(1 To 12) As FrmCoolClose Private Sub HideForm(TheFrm As Form)    Const RGN_DIFF = 4    Const RGN_OR = 2    Dim outer_rgn As Long    Dim inner_rgn As Long    Dim wid As Single    Dim hgt As Single    Dim border_width As Single    Dim title_height As Single    Dim ctl_left As Single    Dim ctl_top As Single    Dim ctl_right As Single    Dim ctl_bottom As Single    Dim control_rgn As Long    Dim combined_rgn As Long    Dim ctl As Control    If TheFrm.WindowState = vbMinimized Then Exit Sub    wid = TheFrm.ScaleX(TheFrm.Width, vbTwips, vbPixels)    hgt = TheFrm.ScaleY(TheFrm.Height, vbTwips, vbPixels)    outer_rgn = CreateRectRgn(0, 0, wid, hgt)    border_width = (wid - TheFrm.ScaleWidth) / 2    title_height = hgt - border_width - TheFrm.ScaleHeight    inner_rgn = CreateRectRgn( _    border_width, _    title_height, _    wid - border_width, _    hgt - border_width)    combined_rgn = CreateRectRgn(0, 0, 0, 0)    CombineRgn combined_rgn, outer_rgn, _    inner_rgn, RGN_DIFF    SetWindowRgn TheFrm.hwnd, combined_rgn, TrueEnd SubPublic Sub TransForm(TheForm As Form, TheAlpha As Byte)    Dim NormalWindowStyle As Long    Dim HWD As Long    NormalWindowStyle = GetWindowLong(HWD, GWL_EXSTYLE)    SetWindowLong TheForm.hwnd, GWL_EXSTYLE, NormalWindowStyle Or WS_EX_LAYERED    SetLayeredWindowAttributes TheForm.hwnd, 0, TheAlpha, LWA_ALPHAEnd Sub Public Function DoCoolClose(TargetForm As Form)    TargetForm.Show    Dim TW As Long    Dim TL As Long    TW = TargetForm.Width / 4    TL = TargetForm.Height / 4    For i = 1 To 12        DoEvents        Set Frm(i) = New FrmCoolClose        Frm(i).Show        Frm(i).Width = TW        Frm(i).Height = TW        If i = 1 Then            Frm(i).Top = TargetForm.Top            Frm(i).Left = TargetForm.Left        Else            If i = 2 Or i = 3 Or i = 4 Then                Frm(i).Top = TargetForm.Top            End If            If i = 5 Or i = 6 Or i = 7 Or i = 8 Then                Frm(i).Top = (Frm(1).Top + Frm(1).Height)            End If            If i = 9 Or i = 10 Or i = 11 Or i = 12 Then                Frm(i).Top = (Frm(1).Top + (Frm(1).Height * 2))            End If            If i = 1 Or i = 5 Or i = 9 Then                Frm(i).Left = TargetForm.Left            Else                Frm(i).Left = (Frm(i - 1).Left + TW)            End If        End If        Frm(i).Refresh        Frm(i).Show        StayOnTop Frm(i)        HideForm Frm(i)        Frm(i).Refresh    Next i     For i = 1 To 12        DoEvents        Set Frm2(i) = New FrmCoolClose        Frm2(i).Width = TW        Frm2(i).Height = TW        If i = 1 Then            Frm2(i).Top = TargetForm.Top            Frm2(i).Left = TargetForm.Left        Else            If i = 2 Or i = 3 Or i = 4 Then                Frm2(i).Top = TargetForm.Top            End If            If i = 5 Or i = 6 Or i = 7 Or i = 8 Then                Frm2(i).Top = (Frm2(1).Top + Frm2(1).Height)            End If            If i = 9 Or i = 10 Or i = 11 Or i = 12 Then                Frm2(i).Top = (Frm2(1).Top + (Frm2(1).Height * 2))            End If            If i = 1 Or i = 5 Or i = 9 Then                Frm2(i).Left = TargetForm.Left            Else                Frm2(i).Left = (Frm2(i - 1).Left + TW)            End If        End If        Set Frm2(i).Picture = CaptureForm(Frm(i))        StayOnTop Frm2(i)        Frm2(i).Refresh    Next i        For i = 1 To 12        DoEvents        Frm2(i).Show    Next i             Unload TargetForm    TI = 1    For i = 1 To 12        Frm2(i).Timer1.Interval = TI        Frm2(i).Timer2.Enabled = True        Frm2(i).Tag = i        TI = TI + 10    Next iEnd Function Public Function GetRandomNumber(StartNumber As Integer, EndNumber As Integer) As Integer    Randomize Timer    GetRandomNumber = Int(Rnd * (EndNumber - StartNumber)) + StartNumberEnd Function Private Function CaptureForm(TheForm As Form) As Picture    Set CaptureForm = CaptureWindow(TheForm.hwnd, False, 0, 0, TheForm.ScaleX(TheForm.Width, vbTwips, vbPixels), TheForm.ScaleY(TheForm.Height, vbTwips, vbPixels))End Function Private Function CaptureWindow(ByVal hWndSrc As Long, ByVal Client As Boolean, ByVal LeftSrc As Long, ByVal TopSrc As Long, ByVal WidthSrc As Long, ByVal HeightSrc As Long) As Picture    Dim hDCMemory As Long    Dim hBmp As Long    Dim hBmpPrev As Long    Dim hDCSrc As Long    Dim hPal As Long    Dim hPalPrev As Long    Dim RasterCapsScrn As Long    Dim HasPaletteScrn As Long    Dim PaletteSizeScrn As Long    Dim LogPal As LOGPALETTE    If Client Then        hDCSrc = GetDC(hWndSrc)    Else        hDCSrc = GetWindowDC(hWndSrc)    End If    hDCMemory = CreateCompatibleDC(hDCSrc)    hBmp = CreateCompatibleBitmap(hDCSrc, WidthSrc, HeightSrc)    hBmpPrev = SelectObject(hDCMemory, hBmp)    RasterCapsScrn = GetDeviceCaps(hDCSrc, RASTERCAPS)    HasPaletteScrn = RasterCapsScrn And RC_PALETTE    PaletteSizeScrn = GetDeviceCaps(hDCSrc, SIZEPALETTE)    If HasPaletteScrn And (PaletteSizeScrn = 256) Then        LogPal.palVersion = &H300        LogPal.palNumEntries = 256        r = GetSystemPaletteEntries(hDCSrc, 0, 256, _        LogPal.palPalEntry(0))        hPal = CreatePalette(LogPal)        hPalPrev = SelectPalette(hDCMemory, hPal, 0)        r = RealizePalette(hDCMemory)    End If    Call BitBlt(hDCMemory, 0, 0, WidthSrc, HeightSrc, hDCSrc, _    LeftSrc, TopSrc, vbSrcCopy)    hBmp = SelectObject(hDCMemory, hBmpPrev)    If HasPaletteScrn And (PaletteSizeScrn = 256) Then        hPal = SelectPalette(hDCMemory, hPalPrev, 0)    End If    Call DeleteDC(hDCMemory)    Call ReleaseDC(hWndSrc, hDCSrc)    Set CaptureWindow = CreateBitmapPicture(hBmp, hPal)End Function Private Function CreateBitmapPicture(ByVal hBmp As Long, ByVal hPal As Long) As Picture    Dim Pic As PicBmp    Dim IPic As IPicture    Dim IID_IDispatch As GUID    With IID_IDispatch        .Data1 = &H20400        .Data4(0) = &HC0        .Data4(7) = &H46    End With    With Pic        .Size = Len(Pic)        .Type = vbPicTypeBitmap        .hBmp = hBmp        .hPal = hPal    End With    Call OleCreatePictureIndirect(Pic, IID_IDispatch, 1, IPic)    Set CreateBitmapPicture = IPicEnd FunctionPrivate Sub StayOnTop(the As Form)Dim SetWinOnTopSetWinOnTop = SetWindowPos(the.hwnd, HWND_TOPMOST, 0, 0, 0, 0, flags)End Sub `

Form với 2 Timer : Timer2, Timer2

Mã: Chọn hết

`Dim TheA As ByteDim TheL As LongDim TheT As LongDim TheDimAmt As Long Private Sub Form_Load()    TheDimAmt = GetRandomNumber(5, 20)    TheL = GetRandomNumber(-200, 200)    TheT = GetRandomNumber(-200, 200)    TheA = 255End Sub Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)DoCoolClose MeEnd Sub Private Sub Timer1_Timer()    DoEvents    Dim TMPL As Long    TransForm Me, TheA    TMPL = TheA - TheDimAmt    Me.Top = Me.Top + TheT    Me.Left = Me.Left + TheL    If TMPL <= 0 Then        Me.Timer1.Enabled = False        DoCLose    Else        TheA = TMPL    End IfEnd Sub Private Sub Timer2_Timer()    Me.Timer1.Enabled = True    Me.Timer2.Enabled = FalseEnd Sub  Private Sub DoCLose()    For i = 1 To 12        If i <> Me.Tag Then            If Frm2(i).Visible = True Then                Unload Me                Exit Sub            End If        End If    Next i    EndEnd Sub `

VI
Form nhảy múa trên TaskBar trước khi thoát... Mã: Chọn hết

`Private Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As LongPrivate Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As LongPrivate Type RECT    Left As Long    Top As Long    Right As Long    Bottom As Long    End Type    Dim What As RECT Private Sub Form_Unload(Cancel As Integer)    If Me.WindowState <> 0 Then        Me.WindowState = 0    End If    Cancel = -1    Dim HeightOfStartMenu As Long    Dim Speed As Long    Dim StartAt As Long     For I = 1 To 999        z\$ = Space\$(128)        Y = GetClassName(I, z\$, 128)        X = Left\$(z\$, Y)        If LCase(X) = "shell_traywnd" Then            GoTo JumpOut:        End If    Next IJumpOut:    GetWindowRect I, What       HeightOfStartMenu = What.Top * 15     If HeightOfStartMenu <= 0 Then        HeightOfStartMenu = Screen.Height    End If    StartAt = HeightOfStartMenu - 4000    If StartAt < Me.Top Then        StartAt = Me.Top    End If    Speed = 100    Me.Height = 0    Me.Width = 4000GoAgain:    Do Until Me.Top >= HeightOfStartMenu        DoEvents            Me.Top = Me.Top + Speed            Me.Left = Me.Left + 15        Loop        Do Until Me.Top <= StartAt            DoEvents                Me.Top = Me.Top - Speed                Me.Left = Me.Left + 15            Loop            If StartAt >= 10000 And Me.Top >= HeightOfStartMenu Then                Do Until Me.Top >= HeightOfStartMenu + 15000                    Me.Top = Me.Top + Speed                Loop                End                Exit Sub            End If            StartAt = StartAt + 1000            Speed = Speed - 5            If Speed <= 0 Then                Speed = 5                           End If            GoTo GoAgain:        End Sub `
Sửa lần cuối bởi clarkkent vào ngày T.Bảy 07/06/2008 3:28 pm với 1 lần sửa.

• Hôm bây: www.tinsoftware.com ^ ^
Cố gắng lên...

TrungDung1977
Thành viên chính thức Bài viết: 44
Ngày tham gia: T.Ba 15/08/2006 11:19 pm
Đến từ: TPHCM

### Re: Một số cách đóng ứng dụng ngộ nghĩnh

Qua cách số 1 thì tui thấy rằng máy tính của bạn phải là máy cùi bắp lắm (thì mới kịp thấy hiệu ứng của nó)

Tui phải chèn thêm mấy chục cái Sleep 200 mới thấy được cái gì diễn ra.
Cách 2 ,3 tạm được

alicias21
Bài viết: 1
Ngày tham gia: T.Năm 17/05/2012 2:53 pm
Has thanked: 1 time

### Re: Một số cách đóng ứng dụng ngộ nghĩnh

mấy bạn ơi, cái screen.height và screen.width sao mình dùng ko dc
nó báo lỗi height với width ko có trong system.windows.forms.screen

p/s: mình đang dùng ado.net
ko chỉ bài này, mà bài nào mình sử dụng nó cũng đều báo thiếu này thiếu nọ cả
sr, mình mới học vb thôi _ _!

Quay về “[VB] Ứng dụng - Form và Control”

### Đang trực tuyến

Đang xem chuyên mục này: Không có thành viên nào trực tuyến.1 khách