mehrere panels

goraxer · 4. Mai 2011, 14:29

VB.NET-Quellcode

Public Sub vButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Try
If Not panel Is Nothing Then
Dim files As String = ""
For Each con As Control In panel.Controls
If TypeOf con Is Label Then
files = con.Text & ".lnk"
End If
Next
Process.Start(Application.StartupPath & "\Daten\Desktop\" & files, vbMaximizedFocus)

so jetzt möchte ich das wenn mehrere panels bestehen man auch das andere prog ausführen kann :whistling:

RodFromGermany · 4. Mai 2011, 14:45

Meinst Du es so?

VB.NET-Quellcode

If panel IsNot Nothing Then
Dim files As String = ""
For Each con As Control In panel.Controls
If TypeOf con Is Label Then
files = con.Text & ".lnk"
Process.Start(Application.StartupPath & "\Daten\Desktop\" & files, vbMaximizedFocus)
End If
Next
End If

goraxer · 4. Mai 2011, 14:52

nein also dieser button ist dafür ein prog zu starten was voher ausgewählt wird mit ne open file dialog.

VB.NET-Quellcode

Public Sub newverknüpfung(ByVal Name As String, Optional ByVal pfad1 As String = "", Optional ByVal locx As String = "", Optional ByVal localnew As Boolean = False, Optional ByVal locy As String = "", Optional ByVal image1 As String = "")
If localnew = True Then
CreateShortcut(Application.StartupPath & "\Daten\Desktop\" & Name & ".lnk", pfad1)
End If
Try
If localnew = False Then
Dim xts = ReadLine(Application.StartupPath & "\Daten\Desktop\" & Name & ".vsettings" & ".set", 2)
Dim yts = ReadLine(Application.StartupPath & "\Daten\Desktop\" & Name & ".vsettings" & ".set", 3)
pfad1 = ReadLine(Application.StartupPath & "\Daten\Desktop\" & Name & ".vsettings" & ".set", 4)
image1 = ReadLine(Application.StartupPath & "\Daten\Desktop\" & Name & ".vsettings" & ".set", 5)
x = Val(xts)
y = Val(yts)
Else
x = Cursor.Position.X
y = Cursor.Position.Y
End If
'Erstellt neues Label für den Dateinamen
Dim filenamelabel As New Label
filenamelabel.Text = Name
filenamelabel.Location = New Point(3, 53)
filenamelabel.Size = New Size(58, 13)
filenamelabel.AutoSize = False
filenamelabel.TextAlign = ContentAlignment.MiddleCenter
'Erstellt den Button für die Textdatei
Dim pb As New Button
pb.Size = New Size(64, 50)
pb.Location = New Point(0, 0)
If image1 = "" Then
pb.Text = "Ver."
Else
pb.Image = Image.FromFile(image1)
End If
'Erstellt das Panel
Dim txtfile As New Panel
Dim panelname As String = txtfile.Name
txtfile.Size = New Size(65, 72)
txtfile.Location = New Point(x, y)
txtfile.Controls.Add(filenamelabel)
txtfile.Controls.Add(pb)
txtfile.ContextMenuStrip = Mapple.vfile_cm
txtfile.Visible = True
txtfile.BackColor = Color.Transparent
txtfile.Parent = Mapple
AddHandler pb.Click, AddressOf Mapple.vButton_Click
AddHandler txtfile.MouseDown, AddressOf Mapple.Panel_MouseDown
If localnew = True Then
writefile(Name, pfad1, txtfile.Location.X, txtfile.Location.Y, image1) 'Schreibt eine neue Datei
End If
TabControl1.SelectedTab = TabPage1
For Each con As Control In Me.Controls
If TypeOf con Is TextBox Then
con.Text = ""
End If
Next
Me.Close()
Catch ex As Exception
newfehler(ex.Message, "98", "Mapple Neue-Verknüpfung")
End Try
End Sub

aber wenn ich 2 labels hab startet dieses label auch das prog was label 1 zugewiesen ist

:cursing:ich verzweifel bald :wacko:

RodFromGermany · 4. Mai 2011, 14:57

VB.NET-Quellcode

For Each con As Control In panel.Controls
If TypeOf con Is Label Then
files = con.Text & ".lnk"
End If
Next
Process.Start(Application.StartupPath & "\Daten\Desktop\" & files, vbMaximizedFocus)

Hier ist files immer der Text des letzten Labels. Ist es das, was Du willst?

goraxer · 4. Mai 2011, 15:00

nein ich will eine verknüpfung im prog erstellen die das ausgewählte prog startet aber wenn ich 2 panels habe starten beide das gleiche

RodFromGermany · 4. Mai 2011, 15:32

RodFromGermany schrieb:

Hier ist files immer der Text des letzten Labels.

Meinst Du den Inhalt von Labels, wenn Du Panels sagst?
Es passiert stets dasselbe, solange der Text im letzten Panel nicht geändert wird.

Patrick1993 · 4. Mai 2011, 15:38

Sorry aber ich verstehe nicht so ganz was du vor hast.

Du willst 2 Programme schreiben die mittels Panels gestartet werden ??

goraxer · 4. Mai 2011, 15:45

ich mach schnell nen vid dan siehste das problem

goraxer · 4. Mai 2011, 17:12

youtube.com/watch?v=Jwi2A1_S4Ts

raist10 · 4. Mai 2011, 18:00

Gut ... ich habe mal auf das Vid geguckt.

Auch wenn es jetzt irgendwie blöd klingt, aber in dem Vid verknüpfst Du die beiden Panels mit der Hearts.exe und daher erscheint auch beim Klick auf allen beiden Panels nur das Spiel Heart. Also in dem Sinne passiert genau das was passieren muss ... es wird jeweils die eingerichtete Verknüpfung aufgerufen.

Vielleicht mal ein Vid erstellen wo die Verknüpfungen dann auch auf unterschiedliche Programme zeigen?

Gruß

Rainer

goraxer · 4. Mai 2011, 18:45

raist10 schrieb:

Gut ... ich habe mal auf das Vid geguckt.

Auch wenn es jetzt irgendwie blöd klingt, aber in dem Vid verknüpfst Du die beiden Panels mit der Hearts.exe und daher erscheint auch beim Klick auf allen beiden Panels nur das Spiel Heart. Also in dem Sinne passiert genau das was passieren muss ... es wird jeweils die eingerichtete Verknüpfung aufgerufen.

Vielleicht mal ein Vid erstellen wo die Verknüpfungen dann auch auf unterschiedliche Programme zeigen?

Gruß

Rainer

nein ich hatte 1 wieder gelöscht weil ich es auch minecraft genannt habe und dann nochmal neu erstellt aber eine ist mit minecraft verbunden guck mal genau hin so dumm bin ich auch nicht

raist10 · 4. Mai 2011, 19:15

@ goraxer

Dann siehst Du Dir dann ein anderes Vid an wie ich.

Du weisst der Verkn. Minecraft zuerst Setup342.exe (oder so) zu, dann bei 0:44 weisst Du der Verknüpfung Minecraft die Hearts.exe zu und danach löscht Du eine Minecraft-Verknüpfung, eben die zu Setup342.exe. Danach erstellst Du die Verknüpfung Hearts und weisst der auch die Hearts.exe zu und im Anschluß löscht Du die Verknüpfung Hearts wieder und erstellst sie wieder auf die Hearts.exe neu. Dann kommen Deine Aufrufe der Verknüpfung.

Sorry, aber auf dem verlinkten Video kann ich an keiner einzigen Stelle eine Verknüpfung zu minecraft.exe sehen/erkennen.

Ich sage ja nicht das Du blöd bist, sondern nur das was ich auf dem Vid sehe. Gucke es Dir selber nochmal in Ruhe an.

Gruß

Rainer

goraxer · 4. Mai 2011, 20:43

also prob jetzt : wenn ich 2 VERSCHIEDENE PROZESSE ZUWEISE FÜHREN BEIDE PANELS DAS GLEICHE AUS

Unwesen · 4. Mai 2011, 20:52

Bin net 100% sicher, was ich auf dem Video gesehen habe, aber wenn es das ist was ich denke, habe ich das so gelöst:

Spoiler anzeigen

Der Code ist werde optimiert noch fertig, aber zur demonstration reicht es sicherlich aus..

VB.NET-Quellcode

Public Class Form1
Dim maxAnzahl As Integer = 9
Dim Pan(maxAnzahl) As Panel
Dim NextPanel As Integer
Dim CurrentPosition As Point
Dim Locations(maxAnzahl) As Point 'Array für die Locations
Dim Zielpfade(maxAnzahl) As String
Dim Verknüpfungsnamen(maxAnzahl) As String
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'Lade ggf die Werte aus ner Ini oder so; für das Beispiel beginnt alles bei 0
NextPanel = 0
End Sub
Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
CurrentPosition = New Point(e.Location) 'Cursorposition holen
End Sub
Dim ofd As New OpenFileDialog
Private Sub NeuToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NeuToolStripMenuItem.Click
'Neues Panel erzeugen
'Schwarz, 48x48 Pixel, an Position wo Contextmenü aufgerufen wurde..
Pan(NextPanel) = New Panel
Controls.Add(Pan(NextPanel))
Pan(NextPanel).Name = "Pan" & NextPanel.ToString
Pan(NextPanel).Tag = NextPanel
Pan(NextPanel).Size = New Size(48, 48)
Pan(NextPanel).BackColor = Color.Black
Pan(NextPanel).Location = New Point(CurrentPosition)
Pan(NextPanel).ContextMenuStrip = Me.ContextMenuStrip2
AddHandler Pan(NextPanel).Click, AddressOf Pan_Click
ofd.Filter = "Exe|*.exe"
If ofd.ShowDialog = DialogResult.OK Then
'Pfad
Zielpfade(NextPanel) = ofd.FileName
'Dateinamen abtrennen
Verknüpfungsnamen(NextPanel) = Zielpfade(NextPanel).Substring(Zielpfade(NextPanel).LastIndexOf("\") + 1, Zielpfade(NextPanel).Length - Zielpfade(NextPanel).LastIndexOf("\") - 1)
End If
NextPanel += 1
End Sub
Dim CtxSource As Integer
Public Function FromWhere(ByVal sender As System.Object, ByVal e As System.EventArgs) As Integer
'Ermittelt, von wo das Contextmenü aufgerufen wurde;
CtxSource = ContextMenuStrip2.SourceControl.Tag
Return CtxSource
End Function
Dim PanelNummer As Integer
Private Sub Pan_Click(ByVal sender As Object, ByVal e As System.EventArgs)
PanelNummer = DirectCast(sender, Panel).Tag
MessageBox.Show("Klick auf Panel " & PanelNummer.ToString)
End Sub
Private Sub mnuRenamePanel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuRenamePanel.Click
PanelNummer = FromWhere(sender, e)
MessageBox.Show("Rename Eintrag " & PanelNummer.ToString & vbNewLine & _
"Pfad:" & Zielpfade(PanelNummer) & vbNewLine & _
"Name:" & Verknüpfungsnamen(PanelNummer))
End Sub
Private Sub mnuDeletePanel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuDeletePanel.Click
PanelNummer = FromWhere(sender, e)
MessageBox.Show("Delete Eintrag " & PanelNummer.ToString & vbNewLine & _
"Pfad:" & Zielpfade(PanelNummer) & vbNewLine & _
"Name:" & Verknüpfungsnamen(PanelNummer))
End Sub
End Class

Hab dir das als lauffähiges Project als PN gesendet..

mehrere panels

mehrere panels

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

RodFromGermany schrieb:

raist10 schrieb:

VB.NET-Quellcode

Ähnliche Themen

3 Benutzer haben hier geschrieben