Wer hat eine Idee ?

S

sartre

0
Hi,

nach langer Zeit habe ich vor, ein Programm zu schreiben ( VB6 oder VB.net ) und es bei sourceforge.net zu veröffentlichen.

Leider fehlt es mir...wie der Threadtitel schon zur Aussage gibt..an IDEEN !

Ihr wisst ja :

"Ach, wenn es nur ein solches Programm geben würde..."

Deshalb bitte ich um REALISTISCHE Vorschläge !
( Also keine Decompiler, Office Klone etc. )
 
Weiß nicht ob das geht:

Ein Programm, wo man HTML-Quelltext eingibt, dann alle überflüssigen Leerzeichen und Leerzeilen gelöscht und das ganze schön eingerückt ausgibt.

Also von so:
Code: 
                                                                                    <html><head><title>Titel</title></head><body>INHALT</body></html>
nach so:
Code: 
<html>
    <head>
        <title>
            Titel
        </title>
    </head>
    <body>
        Inhalt
    </body>
</html>

Wär echt supi!
 
mich nervt es immer wenn ich programme nutze die längere zeit laufen, diese aber keine möglichkeit bieten das prog ins systemtray zu schicken und somit meine taskleiste belagern. deshalb folgender programmvorschlag:

das prog soll mir ne liste der anderen programme anzeigen wo ich zB mit nem häkchen davor die programme sichtbar/unsichtabr machen kann. das prog selbst sollte man natürlich ins systray schicken können.
umsetzung ist auch nicht besonders schwierig. zum finden der fenster sind folgende winapi funktionen nützlich:
EnumWindow, EnumChildWindows, FindWindow, GetWindow, GetNextWindow
zum sichtbar/unsichtbar brauchst du die funtion ShowWindow.
 
Da hätte ich was für dich

Mit dem Bsp kann man ein jeweiliges Fenster verstecken! man brauch den Fensternamen nur in ein Textfeld bzw dort wo FENSTERTITEL z.b. Word drinnensteht eintragen und dann naja ihr seht es eh am Quellcode

Code: 
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Const SW_HIDE = 0
Private Const SW_SHOW = 5
Private Const Fenstertitel = "FENSTERTITEL z.b. Word"


Private Sub Command1_Click()
    wHandle = FindWindow(vbNullString, Fenstertitel)
    lResult = ShowWindow(wHandle, SW_HIDE)
End Sub

Private Sub Command2_Click()
    wHandle = FindWindow(vbNullString, Fenstertitel)
    lResult = ShowWindow(wHandle, SW_SHOW)
End Sub

Private Sub Form_Load()
    Command1.Caption = "Ausblenden"
    Command2.Caption = "Einblenden"
    
End Sub

Hier der Code um es in den Tray zu rufen:
FrmMain

Code: 
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    Tasksymbol False
End Sub

Private Sub mnuBeenden_Click()
    Tasksymbol False
    Unload Me
    End
End Sub

Private Sub mnuInfo_Click()
    MsgBox "Info !"
End Sub

Private Sub mnuRestore_Click()
    Tasksymbol False
    Me.Show
End Sub

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Static bRunning As Boolean
  Dim lMsg As Long
  lMsg = X / Screen.TwipsPerPixelX
  If Not (bRunning) Then
    bRunning = True
    Select Case lMsg
      'Doppelklick linke Maustaste
      Case WM_LBUTTONDBLCLK:
        '...
      
      'Klick linke Maustaste
      Case WM_LBUTTONUP:
        WindowState = 0
        Tasksymbol False
        Me.Show
      
      'Doppelklick rechte Maustaste
      Case WM_RBUTTONDBLCLK:
        '...
      
      'Klick rechte Maustaste
      Case WM_RBUTTONUP:
        SetForegroundWindow Me.hwnd
        Me.PopupMenu mnuKontext, , , , mnuInfo
    
    End Select
    bRunning = False
    End If
End Sub

Modul (TraySymbol)

Code: 
Public 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
   
Global tsym As NOTIFYICONDATA
  
Global Const NIM_ADD = &H0
Global Const NIM_MODIFY = &H1
Global Const NIM_DELETE = &H2
Global Const NIF_MESSAGE = &H1
Global Const NIF_ICON = &H2
Global Const NIF_TIP = &H4
Global Const WM_MOUSEMOVE = &H200

Public Const WM_LBUTTONDBLCLK = &H203
Public Const WM_LBUTTONDOWN = &H201
Public Const WM_LBUTTONUP = &H202
Public Const WM_RBUTTONDBLCLK = &H206
Public Const WM_RBUTTONDOWN = &H204
Public Const WM_RBUTTONUP = &H205
Public Const WM_NULL = &H0
    
Public Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As Long
Public Declare Function Shell_NotifyIcon Lib "shell32.dll" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As Long
Declare Function Shell_NotifyIconA Lib "shell32" (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As Integer

Public Sub Tasksymbol(anaus)
    If anaus Then
        tsym.cbSize = Len(tsym)
        tsym.hwnd = frmMain.Picture1.hwnd
        tsym.uID = 1&
        tsym.uFlags = NIF_MESSAGE Or NIF_ICON Or NIF_TIP
        tsym.uCallbackMessage = WM_MOUSEMOVE
        tsym.hIcon = frmMain.Picture1.Picture
        tsym.szTip = "Tasksymbol Demo" & Chr$(0)
        Shell_NotifyIcon NIM_ADD, tsym
    Else
        Shell_NotifyIcon NIM_DELETE, tsym
    End If
End Sub

Viel Spaß!!!!
 
Um antworten zu können musst du eingeloggt sein.
Zurück
Oben