Anschließend werden die Namen in der Auflistung angezeigt und schließlich die Auflistung geleert, ohne das Collection Objekt selbst zu entsorgen. Um zu sehen, wie dies funktioniert, wählen Sie im Menü Project den Befehl " Klasse hinzufügen " aus, und deklarieren Sie eine öffentliche Variable, die auf Modulebene ( nameClass Typ Public instanceName) aufgerufen instanceName wird, um die Namen jeder Instanz zu enthalten. Lassen Sie den Standardnamen als nameClass. Kopieren Sie den folgenden Code, und fügen Sie ihn in den Abschnitt "Allgemein " eines anderen Moduls ein, und starten Sie ihn dann mit der Anweisung classNamer in einer anderen Prozedur. (Dieses Beispiel funktioniert nur mit Hostanwendungen, die Klassen unterstützen. Visual Basic .NET: Blöcke – Wikibooks, Sammlung freier Lehr-, Sach- und Fachbücher. ) Public Class nameClass
Public instanceName As String
End Class
Sub classNamer()
' Create a Visual Basic Collection object. Dim names As New llection()
Dim key As Integer
Dim msg As String
Dim name As String
Dim nameList As String = ""
' 1. Get names from the user to add to the collection.
Visual Basic Code Sammlung 3
Diagnostics
Class MainWindowTitleClass
Public Shared Sub Main()
Dim myProcess As New Process()
Dim myProcessStartInfo As New ProcessStartInfo()
leName = "NAME DES PROGRAMMS"
artInfo = myProcessStartInfo
()
myProcess. WaitForInputIdle()
MsgBox("Main window Title: " + inWindowTitle)
oseMainWindow()
Catch e As Exception
MsgBox(" Message: " + ssage)
Main()
6
Die meisten Snippets die ihr hier schreibt, kann man viel kürzer und leichter machen. Warum macht ihr das alles immer so kompliziert? Oo
Damits nicht ganz im Offtopic landet:
Enter bei Textbox, damit ist gemeint, wenn man z. B. beim Browser Enter drückt, das man dann auf die Seite kommt und nicht in die nächste Reihe von der Textbox rutscht:
Private Sub TextBox1_KeyDown(ByVal sender As, ByVal e As) Handles yDown
If yCode = Then
'Code eingeben
7
Kaev;158452 wrote:
Das soll Kompliziert sein? Auflistungen (Visual Basic Add-In-Modell) | Microsoft Docs. ich finde es recht einfach so, naja mit bischen Überlegung ist es auch zu verstehen. Keav weiter so bist der erste nicht RockNetworker der was dazu beiträgt:D
8
Ich geb dir mal ein Beispiel (Danke an Demon für den Snippet. )
", ausgegeben.