Cześć,
Mam problem ze skryptem w VBA. mam kilka textboxów, do których wpisuję liczby, a po zatwierdzeniu ich Buttonem dodają się one do ListBoxa. Gdy wpisuję liczby całkowite wszystko jest ok natomiast dziwna rzecz dzieje się gdy próbuję wpisać liczbę dziesiętną. Otóż:
- Jeśli jako separator podaję przecinek, to albo wszystkie te przecinki wewnątrz ListBoxa zostają zamienione na kropkę, a program nie jest w stanie pracować z tymi kropkami i wywala się błąd tak jak w poniższym punkcie, albo od czasu do czasu (dosłownie, nie wiem co ma na to wpływ...) przecinki zostaną normalnie dodane do ListBoxa i nie zamienione na kropki, i wtedy program działa normalnie;
- Jeśli jako separator podaję kropkę to program od ręki się wysypuję i dostaję błąd:
Co jest dla mnie tym bardziej dziwne. Przecież Double pracuje na kropkach, a nie przecinkach......
Poniższy kod, w skrócie, obsługuje przypisanie podanych w TextBoxach liczb jako item ListBoxa. Kod ten znajduje się wewnątrz procedury zdarzenia kliknięcia przycisku:
Dim x As Double
x = IIf(Len(XTextBox.Text) = 0, 0, XTextBox.Text)
Dim y As Double
y = IIf(Len(YTextBox.Text) = 0, 0, YTextBox.Text)
CoordListBox.AddItem x
CoordListBox.list(CoordListBox.ListCount - 1, 1) = y
XTextBox.Text = ""
YTextBox.Text = ""
Proszę Was o pomoc, bo szczerze nie mam pojęcia co się tutaj dzieje.