Private Sub vinkelsideside(strVink1 As String, strVink2 As String, strVink3 As String, strSide1 As String, strSide2 As String, strSide3 As String) iAngle = strVink1 * pi / 180 x = (strSide2 * iAngle) / strSide1 strVink2 = (Atn(x / Sqr(-x * x + 1))) * 180 / pi strVink3 = 180 - strVink1 - strVink2 x = (strVink3 * strSide1) / strVink1 strSide3 = (Atn(x / Sqr(-x * x + 1))) * 180 / pi End Sub
hvorfor kommer der ikke tekst i de txtboxe som strvink2, strvink3 og strside3 står for?
Det tror jeg godt jeg kan forklare: Grunden til at det ikke virker at sende Textbox.Text ind i en procedure er at det ikke er en variabel, men i virkeligheden to forskellige funktioner der tager sig af at opdatere og hente værdier i textbox'en. En GET og en SET. Derfor kan du ikke behandle .text ind som variabel. En løsning ville være at sende den ind som textbox i stedet for string, altså:
strVink1 as textbox, osv.
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
