[VB] Combobox bringtofront

Quote:

Originally Posted by tolio hwnd handle auslesen pinvoke [Only registered and activated users can see links. Click Here To Register...] machen fertig

Public Declare Function BringWindowToTop Lib "user32" (ByVal HWnd As IntPtr) As Boolean

Quote:

Originally Posted by silvermf1991 Was ist HWND und wie les ich das aus?

Quote:

Originally Posted by Mostey;28020284Ansonsten hast du doch sicher eine [I Process[/I] Instanz die du für das Programm nutzt, oder? Da gibt's ne Eigenschaft MainWindowHandle, wie wär's damit?

Public Class Form1

    Public Declare Function BringWindowToTop Lib "user32" (ByVal HWnd As IntPtr) As Boolean
    Public ReadOnly Property MainWindowHandle As IntPtr
        Get

        End Get
    End Property

Quote:

Originally Posted by silvermf1991 Leider kann ich mit "Prozessinstanz" nichts anfangen :( hab darüber echt kein Plan was du nun damit meinst

Quote:

Originally Posted by silvermf1991 Code: Public Class Form1 Public Declare Function BringWindowToTop Lib "user32" (ByVal HWnd As IntPtr) As Boolean Public ReadOnly Property MainWindowHandle As IntPtr Get End Get End Property

Quote:

Originally Posted by silvermf1991 Ich hoffe ihr habt mit mir Geduld :rolleyes:

Quote:

Originally Posted by Mostey OK, wie öffnest du den anderen Prozess denn? Oder wie findest du ihn? Poste mal deinen Code dazu.

        Dim pList() As System.Diagnostics.Process =
        System.Diagnostics.Process.GetProcessesByName("prozessname")
        For Each proc As System.Diagnostics.Process In pList
            ComboBox1.Items.Add(proc.ProcessName & proc.Id)
        Next

Quote:

Originally Posted by Mostey So lange du dich bemühst, sollte das kein Problem sein. :rolleyes:

Quote:

Originally Posted by silvermf1991 Code: Dim pList() As System.Diagnostics.Process = System.Diagnostics.Process.GetProcessesByName("prozessname") For Each proc As System.Diagnostics.Process In pList ComboBox1.Items.Add(proc.ProcessName & proc.Id) Next Da muss ich noch mit Asc nen Leerzeichen / Doppelpunkt einfügen, aber solange geht es noch, ist ja nurn schönheitsfehler

Quote:

Originally Posted by Mostey Damit hast du dein Handle. SetForegroundWindow oder etwas ähnliches und dann dürfte das passen.

Public Class Form1

    Dim SetForegroundWindow As Object
    Public ReadOnly Property MainWindowHandle As IntPtr
        Get

        End Get
    End Property

    Private Sub ComboBox1_Click(sender As Object, e As EventArgs) Handles ComboBox1.Click
        ComboBox1.Items.Clear()
        Dim pList() As System.Diagnostics.Process =
        System.Diagnostics.Process.GetProcessesByName("prozessname")
        For Each proc As System.Diagnostics.Process In pList
            ComboBox1.Items.Add(proc.ProcessName & Asc(0) & proc.Id)
        Next
    End Sub
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        SetForegroundWindow = ComboBox1.SelectedItem
    End Sub

Quote:

Note that MainWindowHandle returns 0 if the main window is hidden...

Quote:

If you don't mind using the Windows API, you could use EnumWindowsProc, and check each of the handles that that turns up using GetWindowThreadProcessId (to see that it's in your process), and then maybe IsWindowVisible, GetWindowCaption and GetWindowTextLength to determine which hWnd in your process is the one you want. Though if you haven't used those functions before that approach will be a right pain, so hopefully there's a simpler way.

Quote:

Originally Posted by silvermf1991 Ok nun bin ich ganz draussen >_< Die Links sind aber fast nur C++ / C#, ich basiere doch eher auf vb.net, oder?

[DllImport("user32.dll", EntryPoint = "FindWindow")]
    private static extern IntPtr FindWindow(string lp1, string lp2);

Quote:

Originally Posted by silvermf1991 Hier was bei mir nun ist, ich kapiere jedenfalls nur, das es gerade nicht klappt Code: Dim nWnd As IntPtr Dim ceroIntPtr As New IntPtr(0) Dim Wnd_name As String Private Property FindWindow(p1 As Object, Wnd_name As String) As IntPtr Get Return _findWindow End Get Set(value As IntPtr) _findWindow = value End Set End Property Code: Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Wnd_name = "firefox.exe" nWnd = FindWindow(Nothing, Wnd_name) 'show the info If nWnd.Equals(ceroIntPtr) Then MsgBox("Fenster läuft nicht") Else MsgBox("Fenster läuft") End If End Sub Aber beim "klicken" kommt immer nur "Nicht gefunden"

Quote:

Originally Posted by Mostey Fokus liegt hier eher auf der WinAPI die sowohl von C++, von C# als auch von VB.NET genutzt wird. In C++ wirst du nur häufiger von den Funktionen Gebrauch machen müssen, weil es dort nicht für alles einen Wrapper gibt, wie es in den .NET Sprachen meist der Fall ist. C# kann man übrigens ohne Probleme in VB.NET übersetzen, geht auch umgekehrt.

Quote:

Originally Posted by Mostey Ich hab schon vermutet das du da nicht so richtig hinterherkommst, allerdings weiß ich wirklich nicht, wie ich dir das anders vermitteln soll. Dazu müsstest du auch erstmal wissen, was die WinAPI ist, wieso sie existiert und wie sie in Programmiersprachen wie VB.NET genutzt wird.

Quote:

Originally Posted by Mostey Du kannst die Funktionen aus der dazugehörigen DLL importieren. (Welche das ist, steht in MSDN auf der jeweiligen Seite der Funktion)

Quote:

Originally Posted by silvermf1991 Auf die schnelle würde ich sagen, Windows Programme basieren auf Framework, um ältere Programme / Windows Systeme mit neuen Programmen / System kompatibel sein können, sodass man mit einer Codesprache, sagen wir nun .Net4 ist von W2000 bis W7 bestens geeignet, sodass man nicht wie bei Mac / Windows / Linux alles anders coden muss, damit es funktioniert Lieg ich so in etwa mit meiner Vermutung richtig? :s

Quote:

Originally Posted by Mostey Wenn du damit sagen willst, das du die WinAPI auch auf Unix, Linux und Mac nutzen kannst, um nicht portieren zu müssen, liegst du falsch. Wieso sollte es auch ne Windows API bei Linux geben? Die WinAPI stellt halt die Schnittstelle zwischen OS und deinem Programm dar.