Променливи

По какъв начин трябва да декларирам променливите си за да мога да се обръщам към тях и в другите форми от проекта, а не само в тази в която съм ги декларирал

Не споменаваш за кой Бейсик става дума, но ще приема, че работиш с VB6.

Декларирането на променливи може да става по три начина. Процедурни, модулни, и глобални.

Процедурните променливи се декларират вътре в самата процедура (функция), и са "видими" само от изпълнимия код в процедурата. По този начин в две различни процедури можеш да имаш променливи с еднакви имена, и те няма да си пречат.

Модулните променливи се декларират в началото на програмния код на формата. Те са "видими" от всички процедури във текущата форма, но вътре в процедурите не трябва да има деклариране на променливи с такива имена.

Глобалните - се декларират в модул. Т.е. отдясно в списъка с форми - кликаш десен бутон, "Add...", добавяш "Module", и в него отначалото започваш деклариране на променливи, като използваш "Global" или "Public" за деклариране вместо "Dim". По този начин променливите ще са "видими" от целия проект, но излишно е да споменавам, че никъде после в проекта не трябва да се среща деклариране на друга променлива със същото име.

;о) Успех.


Щирлиц

Благодаря за полезната информация. ВЕроятно ще имам нужда от още

VB6 Имам данни от иксел които визуализирам в FlexGrid: 6 колони и N брой редове.
Как мога да ги разпечатам на матричен принтер в текстов режим. По принцип ако мога да ги запаметя в .prn файл после мога да се оправя, но нещо не мога да стигна до прн файла. Идеята ми е да използвам функцията на енсел SAVE AS .prn но не зная как

С този код:
Private Sub command2_click()
Dim strFieldSeparator
Dim i
Dim j
Dim x As String
Dim y As Integer
y = 50
strFieldSeparator = ""
Open "C:\Testfile.PRN" For Output As #1
x = MSFlexGrid1.TextMatrix(0, 2)
For i = 0 To MSFlexGrid1.Rows - 1
For j = 0 To MSFlexGrid1.Cols - 1
Write #1, MSFlexGrid1.TextMatrix(i, j);
Next j
Write #1,
Next i
Close
End Sub

СЕ ПОЛУЧАВА НЕЩО, НО НЕ ТОВА КОЕТО МИ ТРЯБВА
ЕТО ТОВА Е РЕЗУЛТАТА:
"№","PLU","Найменование","Р-р","Бр.","Цена","Сума",
"1","M07337","M07337 - Д-КИ ""REPLAY"" R13 С РОЗОВ КАНТ","xl","1","39","39",
"2","M07586","M07586 - ДЪНК . ЯКЕ 'IQ' 06/558","l","1","68","68",
"3","M07582","M07582 - ДЖИНСИ 'IQ' 02/1113","xxl","1","40","40",
"4","M07582","M07582 - ДЖИНСИ 'IQ' 02/1113","","1","40","40",
"5","M07582","M07582 - ДЖИНСИ 'IQ' 02/1113","","1","40","40",

КАК ДА НАКАРАМ ТЕЗИ КАВИЧКИ И ЗАПЕТАИ ДА НЕ ИЗЛИЗАТ И ВСЯКА КОЛОНА ЗА ЗАПОЧВА ОТ ТОЧНО ОПРЕДЕЛЕНА ПОЗИЦИЯ ВЪВ ФАЙЛА

Жив и здрав да си - .. какво се залутах.................съкрати ми 700 реда код
баси колко съм кух!
Благодаря!

Някой още ползва VB6!?

---

Да, то си е фън, кво?:)

Strange thing how people like to be seduced but often forget to seduce back

Малоумие! Има вече VB2005/2008/2010, аз лично ползвам тях.
VB6 е древна история, морално и всякак остарял.

---