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 1610 23.04.2018, 11:48
Ostatni post: broda99
  wczytanie danych z pliku, filtrowanie danych, zapis wyniku do pliku tekstowego - C++ Martus 1 5248 21.10.2015, 22:43
Ostatni post: Szachista
  [BATCH] Pytanie - przenoszenie plików z katalogu wyżej krysteksulek 4 4921 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
  [C] Zliczanie wystąpień liczb w tablicy PanKot 1 4364 01.11.2016 18:20
Ostatni post: Szachista
  Konferencja Oracle Digital Day 2016 koneton 0 4223 31.10.2016 08:24
Ostatni post: koneton
  [C] problem z kodem "wyświetlanie gwiazdek" mdb 2 4337 29.10.2016 20:14
Ostatni post: mdb
  Jak zrobić indeks górny w Codeblocksie? Szymeg 1 4103 29.10.2016 08:31
Ostatni post: Szachista
  Zmiana koloru składni w Visual Studio 2015 rafineria888 0 4337 24.10.2016 11:41
Ostatni post: rafineria888
  Import i eksport bazy w formacie bin (Lazarus) Chudy2000 0 4083 23.10.2016 14:16
Ostatni post: Chudy2000
Big Grin W jakich językach pisze się programy na Telefon ? Kamyyk96 7 5650 21.10.2016 14:46
Ostatni post: patrickkrk
  dev pascal, problem z funkcją kwadratową Sentinel24 4 4926 21.10.2016 11:20
Ostatni post: koneton
  Shrink sql,a korzystanie pracowników z bazy Cixi 0 3830 18.10.2016 20:33
Ostatni post: Cixi
  [Java] ConflictingBeanDefinitionException - dwie klasy o tej samej nazwie Mordrak 4 4760 12.10.2016 21:24
Ostatni post: Mordrak
  Problem z makefile.win w Dev C++ jeziru 0 4391 12.10.2016 17:17
Ostatni post: jeziru
  Schematy/Algorytmy/Java prykeslon 4 4718 05.10.2016 16:28
Ostatni post: aht
  Jak nazywa się taki rodzaj ataku na bazę danych? anarhak 0 3872 02.10.2016 23:08
Ostatni post: anarhak
  [Java] zapisywanie strony internetowej do tablicy/listy off-line 2 4592 26.09.2016 10:54
Ostatni post: off-line
  [Java] Implementacja listy jednokierunkowej (problem przy dodawaniu). Chudy2000 3 5293 28.08.2016 12:33
Ostatni post: sh0cker