Udregn. Fra : malarico Vist : 380 gange 100 point Dato : 10-12-07 20:12

hejsa, håber i kan hjælpe mig her. Jeg har 4 TextBoxe, kaldet textBox1,TextBox2,TextBox3,TextBox4. jeg har en knap til udregning, i den har jeg skrevet følgende. Kode Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click TextBox1.Text = Spænding TextBox2.Text = Strøm TextBox3.Text = Modstand TextBox4.Text = Effekt If TextBox1.Text = "true" And TextBox2.Text = "True" Then TextBox3.Text = "Spænding / Strøm" TextBox4.Text = "Spænding * Strøm" End If End Sub Så var det meningen at når jeg skrev noget i textBox1 & i TextBox2 så skulle deb også skrive det i TextBox3/Modstand og i TextBox4/Effekt Hvorfor sker dette ikke? Håber i kan hjælpe

Kommentar Fra : berpox Dato : 10-12-07 22:35

Prøv noget i denne retning..... jeg har kaldt min userform for Userform1, og knappen hedder Commandbutton1 - herudover har jeg brugt fysikkens benævnelser for støm, spænding, modstand og effekt... Kode Private Sub CommandButton1_Click() Dim U, I, R, P As Double On Error GoTo errorh U = CDbl(TextBox1.Text) I = CDbl(TextBox2.Text) R = Round(U / I, 3) P = Round(U * I, 3) TextBox3.Text = R & " Ohm" TextBox4.Text = P & " Watt" Exit Sub errorh: MsgBox "Fejl i indtastning", vbCritical End Sub Private Sub TextBox1_Enter() TextBox1.Text = "" End Sub Private Sub TextBox2_Enter() TextBox2.Text = "" End Sub Private Sub UserForm_Initialize() CommandButton1.Caption = "Beregn" TextBox1.Text = "Volt" TextBox2.Text = "Spænding" TextBox3.Enabled = False TextBox4.Enabled = False TextBox3.BackColor = vbYellow TextBox4.BackColor = vbYellow CommandButton1.SetFocus End Sub

Kommentar Fra : berpox Dato : 10-12-07 22:36

...og i den sidste sub skal der selvfølgelig stå: Kode Private Sub UserForm_Initialize() CommandButton1.Caption = "Beregn" TextBox1.Text = "Spænding" TextBox2.Text = "Strøm" TextBox3.Enabled = False TextBox4.Enabled = False TextBox3.BackColor = vbYellow TextBox4.BackColor = vbYellow CommandButton1.SetFocus End Sub ... ellers gi'r det ingen mening

Kommentar Fra : berpox Dato : 11-12-07 14:20

Hvad siger du til det "malarico" ?

Kommentar Fra : berpox Dato : 17-01-08 01:07

Hallooooooo malarico ???? Fik du svar på dit spørgsmål?

Du har følgende muligheder

Dette spørgsmål er blevet annulleret, det er derfor ikke muligt for at tilføje flere kommentarer.