ABOUT Visual Basic Programmieren Programmierung Download Downloads Tips & Tricks Tipps & Tricks Know-How Praxis VB VBA Visual Basic for Applications VBS VBScript Scripting Windows ActiveX COM OLE API ComputerPC Microsoft Office Microsoft Office 97 Office 2000 Access Word Winword Excel Outlook Addins ASP Active Server Pages COMAddIns ActiveX-Controls OCX UserControl UserDocument Komponenten DLL EXE
Diese Seite wurde zuletzt aktualisiert am 28.02.2000

Diese Seite wurde zuletzt aktualisiert am 28.02.2000
Aktuell im ABOUT Visual Basic-MagazinGrundlagenwissen und TechnologienKnow How, Tipps und Tricks rund um Visual BasicAddIns für die Visual Basic-IDE und die VBA-IDEVBA-Programmierung in MS-Office und anderen AnwendungenScripting-Praxis für IE, Windows Scripting Host und das Scripting-ControlTools, Komponenten und Dienstleistungen des MarktesRessourcen für Programmierer (Bücher, Job-Börse)Dies&Das...

Themen und Stichwörter im ABOUT Visual Basic-Magazin
Code, Beispiele, Komponenten, Tools im Überblick, Shareware, Freeware
Ihre Service-Seite, Termine, Job-Börse
Melden Sie sich an, um in den vollen Genuss des ABOUT Visual Basic-Magazins zu kommen!
Informationen zur AVB-Web-Site, Kontakt und Impressum

Zurück...

"Unmögliche" Zeichen

Zurück...


Anzeige

Code des Tools avbCopyAsciiChar

Private Declare Sub SetWindowPos Lib "User32" _
 (ByVal hWnd As Long, ByVal Order As Long, ByVal X As Long, _
 ByVal Y As Long, ByVal cX As Long, ByVal cY As Long, _
 ByVal Flags As Long)

Private mLeft As Single
Private mTop As Single

Private Sub chkTopMost_Click()
  Dim nFlags As Long
  Dim nTopMode As Long
  
  Const SWP_NOMOVE = 2
  Const SWP_NOSIZE = 1
  Const HWND_TOPMOST = -1
  Const HWND_NOTOPMOST = -2
  Const SWP_NOACTIVATE = &H10

  nFlags = SWP_NOMOVE Or SWP_NOSIZE
  Select Case chkTopMost.Value
    Case vbChecked
      nTopMode = HWND_TOPMOST
    Case vbUnchecked
      nTopMode = HWND_NOTOPMOST
  End Select
  SetWindowPos Me.hWnd, nTopMode, 0, 0, 0, 0, nFlags
End Sub

Private Sub cmdClose_Click()
  Unload Me
End Sub

Private Sub cmdCopy_Click()
  Dim i As Integer
  
  For i = 0 To 31
    If optAscii(i).Value Then
      With Clipboard
        .Clear
        .SetText Chr$(i), vbCFText
      End With
      Exit For
    End If
  Next 'i
End Sub

Private Sub Form_Load()
  Dim i As Integer
  
  For i = 1 To 31
    optAscii(i).Caption = Format$(i, "00")
  Next 'i
  chkTopMost.Value = CInt(GetSetting("avbTools", _
   "CopyAsciiChar", "OnTop", vbUnchecked))
  mLeft = GetSetting("avbTools", "CopyAsciiChar", "Left", -9999)
  mTop = GetSetting("avbTools", "CopyAsciiChar", "Top", -9999)
  With Me
    If mLeft <> -9999 Then
      .Left = mLeft
    End If
    If mTop <> -9999 Then
      .Top = mTop
    End If
  End With
End Sub

Private Sub Form_Resize()
  With Me
    If .WindowState <> vbMinimized Then
      mLeft = .Left
      mTop = .Top
    End If
  End With
End Sub

Private Sub Form_Unload(Cancel As Integer)
  SaveSetting "avbTools", "CopyAsciiChar", "OnTop", _
   chkTopMost.Value
  Form_Resize
  SaveSetting "avbTools", "CopyAsciiChar", "Left", mLeft
  SaveSetting "avbTools", "CopyAsciiChar", "Top", mTop
End Sub

Zurück zu "Unmögliche Zeichen" Zurück zum Text   


Komponenten-Übersicht

Schnellsuche



Zum Seitenanfang

Copyright © 1999 - 2017 Harald M. Genauck, ip-pro gmbh  /  Impressum

Zum Seitenanfang

Zurück...

Zurück...

Download Internet Explorer