#post-id: 3291-03-09 #original-date: 30.07.2009 Thu #original-time: 3:09 AM #original-day: &#160;3291 #original-h...

четверг, 30 июля 2009

15:40

Тотальная неудачница и убийца жёстких дисков.

#post-id: 3291-03-09
#original-date: 30.07.2009 Thu
#original-time: 3:09 AM
#original-day: 3291
#original-host: WinXP Prof SP2 (Build 2600)

Предпросмотр по-чувашски ^^ /* Реальный код, написанный мною ^^ */

Private Sub cmdShowPicture_MouseDown(Button As Integer, Shift As Integer, _
                                     X As Single, Y As Single)
  Dim hDC As API_HANDLE
  Dim RC As Long
  
  hDC = GetDC(0)
  If hDC = 0 Then
    MsgBox "Не удалось получить контекст устройства экрана.", vbCritical
    Exit Sub
  End If
  
  RC = BitBlt(hDC, 0, 0, Me.picPicture.Width \ Screen.TwipsPerPixelX, _
              Me.picPicture.Height \ Screen.TwipsPerPixelY, _
              Me.picPicture.hDC, 0, 0, SRCCOPY)
  If RC = 0 Then
    MsgBox "Не удалось скопировать картинку на контекст " & _
           "устройства экрана.", vbCritical
  End If
  
  ReleaseDC 0, hDC
End Sub

Private Sub cmdShowPicture_MouseUp(Button As Integer, Shift As Integer, _
                                   X As Single, Y As Single)
  InvalidateRectByNum 0, 0, C_TRUE
End Sub

Private Sub cmdShowPicture_KeyDown(KeyCode As Integer, Shift As Integer)
  If KeyCode = vbKeySpace And Shift = 0 Then
    cmdShowPicture_MouseDown vbLeftButton, 0, 0, 0
  End If
End Sub

Private Sub cmdShowPicture_KeyUp(KeyCode As Integer, Shift As Integer)
  If KeyCode = vbKeySpace And Shift = 0 Then
    cmdShowPicture_MouseUp vbLeftButton, 0, 0, 0
  End If
End Sub

URL

Поделиться

Комментарии


Запомнить

Лингрин :: Резиденция Линды Кайе