Søg
Avatar billede visualdeveloper Nybegynder
30. november 2004 - 22:52 Der er 5 kommentarer og
1 løsning

let spg til visual basic

hej exps.
jeg har lavet dette utrolig simple program:


Private Sub Command1_Click()
Label2.Caption = Text1.Text & " + " & Text2.Text & " = " & Val(Text1.Text) + Val(Text2.Text)
End Sub

Private Sub Text1_Click()
Me.Text1 = ""
End Sub

Private Sub Text2_Click()
Me.Text2 = ""
End Sub

Jeg kunne godt tænke mig at skrive noget i command1_click() så hvis en af de to labels indeholdt "pi" ville den skulle sætte værdien til 3.1415
Avatar billede kabbak Professor
30. november 2004 - 23:41 #1
Private Sub Text1_Change()
If Text1.Text = "pi" Then Text1.Text = 3.1415
End Sub
Avatar billede mjense173 Nybegynder
01. december 2004 - 01:54 #2
Du kunne også lave en lille parser til den slags.. ved at indsætte følgende kode istedet for Command1_Click()

Private Sub Command1_Click()
Select case Text1.Text
  case "pi"
  Text1.Text = "3,1415926"
  case "e"
  Text1.Text = "2,7"
end select
Label2.Caption = Label2.Caption = Text1.Text & " + " & Text2.Text & " = " & Val(Text1.Text) + Val(Text2.Text)
End Sub
Avatar billede mjense173 Nybegynder
01. december 2004 - 01:56 #3
På denne måde kan du nemt tilføje flere funktioner ved blot at lave en CASE mere.
Denne skal laves for begge felter, jeg har kun vist det for Text1.
Avatar billede fizz Nybegynder
02. december 2004 - 22:01 #4
hva med:

text1.text = replace(text1.text,"pi","3.1415")

:)
Avatar billede visualdeveloper Nybegynder
03. december 2004 - 14:16 #5
har fundet ud af det !!!
Avatar billede fizz Nybegynder
06. december 2004 - 23:02 #6
æv
Avatar billede Ny bruger Nybegynder

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.

Loading billede Opret Preview
Kategori
Programmeringssprog kurser
Kurser inden for grundlæggende programmering
Se alle Programmeringssprog kurser

Flere spørgsmål fra Visual Basic kategorien

Titel Indlæg Oprettet Seneste aktivitet
Send mail fra "Outlook New" via VBA i excel Af lonmat i Visual Basic 5 29/08/202512:28 04/09/202515:48
Klik Event i MS Project Af per2edb i Visual Basic 0 05/08/202510:10 -
VBA koder lagt i MS project kolonner Af per2edb i Visual Basic 0 16/05/202512:31 -
Foto fra Word eller Excel Af MSchlamovitz i Visual Basic 1 22/04/202514:55 25/04/202511:21
Proxy server.. Af SommerFyr i Visual Basic 12 10/07/202417:34 12/07/202414:34
Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
07/1022:52 Google beskeder har/havde en bug, så den sendte tilfældige gamle beskeder gemt indeni nye beskeder efter skifte til ny Samsungtelefon via Samsung Smart Switch Af KennethLykke i Apps til Android
05/1010:31 Min IPAD vil ikke oplade. Af Nørdnot i Mac
04/1018:04 Findes der et "Papir-kurv" symbol, man kan sætte på Firefox og Google Chrome ? (For oven) Af Ikke-ekspert i Browsere
03/1012:14 Ang udskrift Canon mb5050 Af made18 i Printere
02/1021:29 Vedr. Windows 11 version 26H2 Af ErikHg i Fri debat
White papers
Flere white papers »