Für Bauzeichnungen ist die Grundlage DIN 1356.
Sieh mal nach unter http://www.teiath.gr/userfiles/eadsa_web_admin/lessons/e_semester/Technical%20Drawing_DIN_1356_1.pdf
Gruß Horst
Sorry! Bei Excel geht das so:
ActiveCell.Text = Application.Username
Hi!
Welchen User willst DU?
Den , der gerade unter Windows angemeldet ist?
Den bekommst Du mit folgender Zeile:
Username = Environment.UserName
Gruß Horst
Die Registry ist für Windows LEBENSNOTWENDIG!
Wenn Du sie deaktivierst wird das ganze Betriebssystem unbrauchbar.
Deine Frage ist so, als würdest Du fragen: Wie kann ich ohne "Futter" überleben?
Du kannst in die Registry - mit Vorsicht !!! - eingreifen, d.h. Einträge ändern!
Das ist dann vergleichbar mit: Welches "Futter" nehme ich zu mir?
Aber: Wenn Du bei einer Änderung Fehler machst, dann kann Dein ganzes System flöten gehen!
Du hast (mindestens) drei Lösungsansätze.
In jedem Fall musst Du Deinen Text speichern und wieder auslesen. Hier die drei lösungsansätze. Ich habe (2) aktiviert.
Private PN As String = "Versuchsapp" ' für (2) und (3)
Private Sub Form1_FormClosing(sender As Object, e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
'' (1) Text speichern
'(2) Registry mit VB
SaveSetting(PN, "Merken", (1), TextBox1.Text)
'(3) Registry direkt
'Dim writeValue As Object
'writeValue = TextBox1.Text
'My.Computer.Registry.SetValue _
' ("HKEY_CURRENT_USER\Software\MyApp", PN, writeValue)
End Sub
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
''(1) Text einlesen
'(2) Registry mit VB
TextBox1.Text = GetSetting(PN, "Merken", (1), TextBox1.Text)
'(3) Registry direkt
'Dim readValue As Object
'readValue = My.Computer.Registry.GetValue _
'("HKEY_CURRENT_USER\Software\MyApp", PN, Nothing)
TextBox1.Text = CStr(readValue)
End Sub
Hi!
Mach Dir doch einmal die Mühe, Deinen Text in aller Ruhe selbst zu lesen als hättest nicht Du ihn geschrieben. Dann kommst Du sicher zu dem Schluss: So eine Frage kann ein Fremder nicht beantworten.
Als Erstes stellen sich die Fragen:
Briefe der Schule??
Warum hast Du geschwänzt??
Wie hat Dein Vater davon erfahren??
Und wie war seine Reaktion??
Allgemein muss man wohl sagen: Jeder macht mal Fehler! Auch Deine Eltern aber auch Du. Jeweils dem anderen seine Fehler vorzuhalten bringt keinen weiter. Aber Du kannst bei Dir selbst anfangen, den Teufelskreis zu durchbrechen.
Denk mal - nur für Dich - über die Probleme nach.
Was Du über Deine Mutter schreibst, ist nicht nur für Dich schwer zu ertragen. Aber es gibt viele Menschen, die Hilfe von Psychologen oder Psychiatern brauchen. Das hat nichts mit "Klapse" zu tun. Deine Mutter braucht Hilfe! Und Dein Vater scheint hier auch hilflos zu sein. In so einer Situation brauchen alle Beteiligten Hilfe, auch Du!
Zusammenfassend: Es geht nicht darum, ob Dir die Frau vom Jugendamt recht gegeben hat. Du hast hier im Forum Deine Frage gestellt. Das zeigt, dass Du stark bist. Fang Du an, zunächst Deine eigenen Fehler zu erkennen und nur in Dir selbst dafür Lösungen zu suchen.
Ich wünsche Dir viel Erfolg!
Horst
Willst Du die Eingabe UNSICHTBAR machen!
Dann stehen Dir zwei bzw. drei Ereignisse zur Verfügung:
Vorher dafür sorgen, dass die Eingaben an die Form-Ereignisse gemeldet werden mit:
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
Me.KeyPreview = True
End Sub
Private Sub Form1_KeyDown(sender As Object, e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
Dim Nr As Integer = e.KeyCode
Select Case Nr
Case 13 ' Enter
' ---
Case 17 ' STRG
'---
Case 114 'F3 #####
Case 48 ' 0
'---
End Select
End Sub
Dim Tx As String
Private Sub Form1_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles Me.KeyPress
If e.KeyChar = Chr(13) Then
Select Case Tx
Case "/Test"
MsgBox(Tx)
Case "0023"
MsgBox(Tx)
End Select
Tx = ""
Else
Tx = Tx + e.KeyChar
End If
End Sub
Das Dritte Ereignis Ist KeyUp, dass Du z.B. . für die Druck-Taste brauchst.
Mit einer TextBox ist die Eingabe sichtbar und leichter zu verarbeiten.
Viel Spaß!
Horst
Hi
Du hast es wahrscheinlich schon selbst gemerkt!
Gruß
Horst
Hallo!
Du brauchst noch einen Button (Button5 mit Gleichheitszeichen)
Der Code kann so aussehen:
Private Ein, Erg As Double
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
Ein = CDbl(TextBox1.Text)
End Sub
' Für Addition (analog für Subtraktion)
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Erg += Ein
Label1.Text = Erg
End Sub
' Für Multiplikation (analog für Division)
Private Sub Button4_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button4.Click
If Erg = 0 Then Erg = Ein
Erg = Erg * Ein
Label1.Text = Erg
End Sub
' Der Ergebnis-Button beendet die Rechnung
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
Erg = 0
End Sub
Viel Spaß!
Horst
Du hast das Problem whrscheinlich schon gelöst.
Aber hier ein Ansatz: Du musst nur die Werte für Nr ändern.
For Each CTRL In Me.Controls
If TypeOf (CTRL) Is Label Then
Dim Nr As Integer = CInt(CTRL.Name.substring(5))
If Nr >= 2 And Nr <= 6 Then
CTRL.Text = "XXX"
End If
End If
Next
Viel Spaß!
Horst
Die Antwort von glasair ist FALSCH!
Erstelle eine neue Form.
Platziere darauf
Hier der Code:
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
With FolderBrowserDialog1()
Dim ant As DialogResult = .ShowDialog
ListBox1.Items.Clear()
TextBox1.Text = .SelectedPath
ListBox1.Items.AddRange(FileList(TextBox1.Text))
End With
End Sub
Function FileList(ByVal Path As String) As String()
Dim F() As String
F = IO.Directory.GetFiles(Path)
Return F
End Function
Private Sub ListBox1_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
PictureBox1.Load(ListBox1.SelectedItem)
End Sub
Viel Spaß!
Gruß
Horst
TextBox1.Text = RichTextBox1.Text
Hier zwei Beispiele.
Das Zweite zeigt Deine Problemlösung
' Zeilenumbruch "verschwindet"
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
TextBox1.Text = RichTextBox1.Text
End Sub
' Hier ist er wieder da!
Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
TextBox1.Text = RichTextBox1.Text.Replace(vbLf, vbCrLf)
End Sub
Viel Spaß!
Horst
Versuchs doch mal mit den kompletten Pfaden statt der
..\
Nach sechs Jahren eine Lösung ohne Aufwand:
If ListBox2.SelectedItems.Contains("a") Then
MsgBox("Markiert")
Else
MsgBox("Nicht markiert")
End If
Gruß
Horst
Hi David,
setze im Code oder im Eigenschaftenfenster den SelectionMode für die ListBox auf One
Im Code so:
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
ListBox1.SelectionMode = SelectionMode.One
End Sub
Gruß
Horst
Hi Pillarp,
löst das Dein Problem? Den Ansatz hat ja schon LeonardM beschrieben.
Private _listWords As New List(Of String) From {"Challenge 1 t", "Challenge 2 Vl", "Challenge 3t", "Challenge 4 ", "Challenge 5 ", "Challenge 7 ", "Challenge 8 ", "Challenge 9 ", "Challenge 10", "Challenge 11 ", "Challenge 12 ", "Challenge 13 "}
Private Results As New List(Of String) ' Neu
Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
Dim _rnd As New Random(Now.Millisecond)
Dim theWord As String = _listWords(_rnd.Next(0, _listWords.Count))
If Not Results.Contains(theWord) Then
Me.Label1.Text = theWord
Results.Add(theWord)
Else
Me.Label1.Text = ""
End If
End Sub
Gruß Horst
Was willst Du?
Ist das wirklich Deine Codezeile ?
<code>If TextBox1.Text = "Text2" ="Text2" Then<\code>
Du vergleichst den Wert "Text2" mit sich selbst. Das ergibt den Boole-Wert "true". Und den hast Du dann in TextBox1.
Vielleicht willst Du
1. Zwei Variablen miteinander vergleichen
<code>Dim Tx1 As String = "AAA"
Dim Text2 As String = "BBB"
If TextBox1.Text = Text1 = Text2 then ' Ergebnis false
<\code>
oder
2. Den Inhalt von TextBox1 mit einem Wert vergleichen
<code>If TextBox1.Text = "Text2" Then
...<\code>
oder
3. TextBox1.Text mit Inhalt der Variablen Text2 vergleichen
<code>If TextBox1.Text = Text2 Then
...<\code>
Beachte:
Variablen: OHNE Anführungszeichen
Textwerte : MIT Anführungszeichen.
Melde Dich mal!!!
Hi Dennis,
hier ein kleines Beispiel:
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
ComboBox1.Items.AddRange({"Technik", "Nahrung"})
End Sub
Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
Dim It() As String = Nothing
Select Case ComboBox1.Text
Case "Technik"
It = {"Hubschrauber", "Flugzeug", "Schiff"}
Case "Nahrung"
It = {"Apfel", "Birne", "Banane", "Sonstiges Obst"}
End Select
ListBox1.Items.Clear()
ListBox1.Items.AddRange(It)
End Sub
Viel Spaß!
Horst
Bist Du noch an einer Lösung interessiert?
Dann beantworte die Frage von Neubii.
Kannst Du Dir vorstellen, dass man keine Lust hat, wenn Du selbst nicht interessiert bist. So gehen solche Foren zu Grunde.
Horst