Witamy na forum PC Format Zapraszamy do REJESTRACJI


Użytkownicy przeglądający ten wątek: 1 gości

[VB.NET] przenoszenie danych między formami

#1
[VB.NET] przenoszenie danych między formami
Cześć,

Powiem wprost potrzebuję napisać mały program do obliczania wymiarów pewnej części i chciałbym wprowadzić podstawowe dane w jednym oknie i żeby mi on to policzył i wyświetlił gotowe wyniki w drugim oknie. Chodzi mi dokładnie o to że, w jednym oknie wprowadzam na w TextBox1 jedną wartość, w TextBox2 drugą wartość klikam przycisk oblicz i pokazuje mi się drugie okno w którym będzie TextBox i wyświetli mi wynik. Szukałem po google, ale bardziej jest do C# kod. Mógłby mi ktoś napisać jaki kod mam wprowadzić w jednej formie, a jaki w drugiej?

Dodam, że jestem początkujący z VB i nie znam tego języka i nie wiążę z nim przyszłości, ale program muszę napisać w VB by był kompatybilny z programem CATIA.
ZADRZYJ Z NAJLEPSZYM, UMRZESZ JAK RESZTA.
 System operacyjny: windows_ten Przeglądarka: firefox
#2
RE: [VB.NET] przenoszenie danych między formami
Może być VB (nie: VB.NET)?
Nie pomagam na PW (ew. odpłatnie). 
I osobom z roszczeniowym podejściem. I osobom niedbającym o poprawność językową.
Jak podawać logi
Jeśli nie odpowiadam w danym wątku przez >3 dni - proszę o przypomnienie na PW z linkiem do wątku w treści.




 System operacyjny: windows_seven Przeglądarka: firefox
#3
RE: [VB.NET] przenoszenie danych między formami
Chodzi mi o składnię jak to ma wyglądać, jeśli nie ma różnicy między jednym a drugim to może. Szczerze to nie znam się na tym języku więc nie wiem jakie są różnice między vb a vb.net

Czytam książkę teraz o vb.net ale to są początki dopiero.
ZADRZYJ Z NAJLEPSZYM, UMRZESZ JAK RESZTA.
 System operacyjny: android Przeglądarka: chrome
#4
RE: [VB.NET] przenoszenie danych między formami
Kod:
Option Explicit

Private Sub Command1_Click()
Dim x As Double, y As Double

On Error Resume Next
x = Text1.Text
If Not IsNumeric(Text1.Text) Then
    MsgBox ("Niewłaściwy format danch!")
    Command3_Click
    Exit Sub
End If
y = Text2.Text
If Not IsNumeric(Text2.Text) Then
    MsgBox ("Niewłaściwy format danych!")
    Command3_Click
    Exit Sub
End If
Text3.Text = x * y
Text3.Refresh
End Sub

Private Sub Command2_Click()
Unload Me
End Sub

Private Sub Command3_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End Sub

https://www.sendspace.com/file/78kl85
Nie pomagam na PW (ew. odpłatnie). 
I osobom z roszczeniowym podejściem. I osobom niedbającym o poprawność językową.
Jak podawać logi
Jeśli nie odpowiadam w danym wątku przez >3 dni - proszę o przypomnienie na PW z linkiem do wątku w treści.




 System operacyjny: windows_seven Przeglądarka: firefox
#5
RE: [VB.NET] przenoszenie danych między formami
[Obrazek: 33b95ee4db152.png]

Dzięki za szybką odpowiedź, ale to co mi napisałeś i wysłałeś to wiem jak zrobić Wesoły

Ale chodzi mi o to, że chce wprowadzić dane w jednej formie, a uzyskać wyniki w drugiej formie. Chciałbym przekazać dane między formami.
ZADRZYJ Z NAJLEPSZYM, UMRZESZ JAK RESZTA.
 System operacyjny: windows_ten Przeglądarka: firefox
#6
RE: [VB.NET] przenoszenie danych między formami
Generalnie chodzi tylko o to żeby zadeklarować zmienną którą będą widzieć obie formy.

Cytat:Option Explicit
Private w As Double

Private Sub Command1_Click()
Dim x As Double, y As Double

On Error Resume Next
x = Text1.Text
If Not IsNumeric(Text1.Text) Then
   MsgBox ("Niewłaściwy format danch!")
   Command3_Click
   Exit Sub
End If
y = Text2.Text
If Not IsNumeric(Text2.Text) Then
   MsgBox ("Niewłaściwy format danych!")
   Command3_Click
   Exit Sub
End If
w = x * y
Form1.Enabled = False
Form2.Text1.Text = w
Form2.Show

End Sub

[Obrazek: e8aca33901d5d304gen.png]

https://www.sendspace.com/file/nhj400
Nie pomagam na PW (ew. odpłatnie). 
I osobom z roszczeniowym podejściem. I osobom niedbającym o poprawność językową.
Jak podawać logi
Jeśli nie odpowiadam w danym wątku przez >3 dni - proszę o przypomnienie na PW z linkiem do wątku w treści.




 System operacyjny: windows_seven Przeglądarka: firefox
#7
RE: [VB.NET] przenoszenie danych między formami
A jaką wersję programu masz? Bo ja mam Visual studio 2017 i przy pisaniu wiersza "Form1.Enabled = False" wyskakuje mi błąd. Dzięki za program Wesoły
ZADRZYJ Z NAJLEPSZYM, UMRZESZ JAK RESZTA.
 System operacyjny: windows_ten Przeglądarka: firefox
#8
RE: [VB.NET] przenoszenie danych między formami
Podaj treść błędu.
Nie pomagam na PW (ew. odpłatnie). 
I osobom z roszczeniowym podejściem. I osobom niedbającym o poprawność językową.
Jak podawać logi
Jeśli nie odpowiadam w danym wątku przez >3 dni - proszę o przypomnienie na PW z linkiem do wątku w treści.




 System operacyjny: windows_seven Przeglądarka: firefox
#9
RE: [VB.NET] przenoszenie danych między formami
Już działa, zapomniałem zdeklarować formę jako Dim i dlatego wyskakiwał błąd, że nie zdeklarowano formy. Teraz już wszystko działa tak samo jak w Twoim programie. Dzięki za pomoc Wesoły

A mam jeszcze jedno pytanie, jakbym chciał wyeksportować dane z TextBoxa do excela i to w takiej formie, że:

Komórka A1 Komórka B1
d 20

Dałoby się taki kod napisać?
ZADRZYJ Z NAJLEPSZYM, UMRZESZ JAK RESZTA.
 System operacyjny: windows_ten Przeglądarka: firefox
#10
RE: [VB.NET] przenoszenie danych między formami
Ad. 1. Możesz nie wymuszać deklarowania zmiennych  ("Option Explicit")  > wtedy program "przyjmie wszystko" - ale uwierz mi: przy 20-30 zmiennych zrobi ci się taki bur... bałagan że się nie połapiesz.

Ad. 2. (eksport do Excel): oczywiście >> kolejny Button na Form2 i przypisany do niego kod:
Kod:
Private Sub Command3_Click()
Dim oExcel As Object, oBook As Object, oSheet As Object
Dim odp As String

On Error GoTo laend

Set oExcel = CreateObject("Excel.Application")
Set oBook = oExcel.Workbooks.Add
Set oSheet = oBook.Worksheets(1)

oSheet.Range("A1").Value = Form1.Text1.Text
oSheet.Range("B1").Value = Form1.Text2.Text
oSheet.Range("D20").Value = Form1.Text3.Text

oBook.SaveAs "C:\x.xlsx"
oExcel.quit

odp = MsgBox("Zapisano w C:\x.xlsx / Arkusz1", vbExclamation, "Ha!")
GoTo laend1

laend:
MsgBox ("Błąd podczas zapisywania - albo wybrałeś coś innego niż 'Tak'  albo plik Excel jest otwarty." _
& vbCrLf & "Sprawdź - ew. zabij wszystkie procesy Excel w Menedżerze zadań.")

laend1:
Set oExcel = Nothing
Set oBook = Nothing
Set oSheet = Nothing

End Sub
Metoda zapisu jest najprostsza jaka może być ("na sztukę") - stąd możliwe błędy (i ich minimalna obsługa).
Stąd też wbity na sztywno plik: C:\x.xlsx.

FYI: zmienna odp jest na razie tylko po to żeby "uatrakcyjnić" komunikat. Przyjmuje jakąś tam wartość po kliknięciu przycisku ale nic z tym dalej nie robi. Ale musi być zadeklarowana bo jest "Option Explicit" Oczko
https://msdn.microsoft.com/en-us/library...s.60).aspx

VB6: https://www.sendspace.com/file/zlf0j2
Nie pomagam na PW (ew. odpłatnie). 
I osobom z roszczeniowym podejściem. I osobom niedbającym o poprawność językową.
Jak podawać logi
Jeśli nie odpowiadam w danym wątku przez >3 dni - proszę o przypomnienie na PW z linkiem do wątku w treści.




 System operacyjny: windows_seven Przeglądarka: firefox
Programy: Polecane / Nowe / Inne




Podobne wątki ([VB.NET] przenoszenie danych między formami)
Wątek: Autor Odpowiedzi: Wyświetleń: Ostatni post
  [VBA] Przenoszenie danych między formularzami Pioro 4 4758 23.04.2018, 11:48
Ostatni post: broda99
  wczytanie danych z pliku, filtrowanie danych, zapis wyniku do pliku tekstowego - C++ Martus 1 6373 21.10.2015, 22:43
Ostatni post: Szachista
  [BATCH] Pytanie - przenoszenie plików z katalogu wyżej krysteksulek 4 5951 01.07.2015, 19:44
Ostatni post: krysteksulek

Skocz do:


Wybrane wątki ([VB.NET] przenoszenie danych między formami)
Wątek: Autor Odpowiedzi: Wyświetleń: Ostatni post
  Sap i power bi książki Cixi 1 5324 09.02.2018 21:46
Ostatni post: Cixi
  Pomoc w VBA excel Woof 3 5934 19.01.2018 09:36
Ostatni post: Woof
Ściana [CMD] Dwa zadanka które mnie przerosły MihuJ 0 5271 11.01.2018 15:52
Ostatni post: MihuJ
  Czy programowanie jest dla mnie? Co powinienem robić? Kumiku 2 5932 05.01.2018 20:14
Ostatni post: broda99
  SQL zapisanie w rekordzie nazwy zalogowanego użytkownika karlos1323 11 2738 30.12.2017 11:08
Ostatni post: koneton
  Mały algorytm bartek164 3 5995 25.12.2017 10:41
Ostatni post: Szachista
  Git - kompilacja pobranej apki ~Anonim 6 5872 23.12.2017 14:59
Ostatni post: ~Anonim
  wczytywanie zmiennej z innego pliku batch grymariusza 7 6412 18.12.2017 17:34
Ostatni post: broda99
  Jaki kod pod takie okno formularza w visualbasicu 2010? aktywny27 11 13777 26.11.2017 23:26
Ostatni post: Ajgor
  Jaki projekt na pythona bartek164 0 5864 25.11.2017 19:59
Ostatni post: bartek164
  Java.android.Tworzenie akcji Blendow 0 6009 16.11.2017 23:38
Ostatni post: Blendow
  Proszę o pomoc, cmd! PanKasztan4 1 5523 16.11.2017 22:05
Ostatni post: broda99
  Jaki kod w visual basicu 2010 express? aktywny27 5 6672 07.11.2017 11:01
Ostatni post: Ajgor
  Sprawdzanie wygranej. PixelFullHD 1 6331 03.11.2017 18:38
Ostatni post: Ajgor
  Algorytm Genetyczny C pr1991 3 6639 26.10.2017 11:52
Ostatni post: Szachista