Молба за помощ за задача на Visual basic

[maxim4o]

Практически е невъзможно да научиш на добро програми-

ране студенти, които са имали предишен досег до езика

BASIC – като потенциални програмисти, те са мисловно

осакатени, без надежда за възстановяване.

Едсгар Дейкстра

[VIS]

Знаех си че не ставам

[maxim4o]

Ами така де, научи C базиран език... C, C++, C#, Java...

[Aquarius]

Не съм съгласен, че Visual Basic (особено VB6) не е добър език за програмиране. Ако го познаваш наистина добре може да постигнеш доста добри резултати при desktop приложенията. Особено подходящ за приложения, свързани с бази данни. Също така предлага идеални възможности за свързване с продуктите от пакета MS Office. Възможностите за използване на Windows API функции, лесното разширяване на функционалността му чрез добавяне на допълнителни ActiveX контроли. Вярно, че Microsoft се опитват да налaгат .NET, но и COM все още се използва доста. Фактът, че IE е базиран на COM говори достатъчно.

 

C/C++ е сериозна работа. Кодът на ядрото на NT е писан основно на C, драйверите на устройства също обикновено се пишат на C, понякога C++, но тук ставаше въпрос за елементарна задачка.

[maxim4o]

На добро програмиране на VB не можеш да се научиш... Яд ме даже, че почнах с VB - оказа се много безперспективен език...

[Aquarius]

На добро програмиране на VB не можеш да се научиш... Яд ме даже, че почнах с VB - оказа се много безперспективен език...

 

Всичко зависи от това какво точно искаш да постигнеш. Това, че вероятно не си избрал правилния език, за това с което искаш да се занимаваш, не означава, че той е лош. Предлагам да прекратим дискусията за качествата на VB6, за да не разводняваме темата с излишни мнения.

[RSFireblade]

Надявам се да не съм нахален, но би ли някой изяснил кодът, че някои части от него не разбирам.

Благодаря.

[VIS]

Ами сподели тогава кои части от кода не разбираш, за да ти ги обясним ?

Може направо да ги копираш.

[RSFireblade]

General - Declarations

 

Dim first As Integer

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _

ByVal hWnd As Long, _

ByVal lpOperation As String, _

ByVal lpFile As String, _

ByVal lpParameters As String, _

ByVal lpDirectory As String, _

ByVal nShowCmd As Long) As Long

 

и

 

General - Label4_MouseMove

 

Private Sub Label4_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Label4.FontSize = 15

End Sub

[crio]

Dim first As Integer

 

Това декларира променлива с име "first" от типа Integer (т.е. число).

 

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _

ByVal hWnd As Long, _

ByVal lpOperation As String, _

ByVal lpFile As String, _

ByVal lpParameters As String, _

ByVal lpDirectory As String, _

ByVal nShowCmd As Long) As Long

 

Практически целия този код е един ред, просто е пренесен на няколко реда чрез _ за да е по-четлив. Кодът декларира функцията ShellExecute от библиотеката shell32.dll. Чрез тази функция могат да се изпълняват операции върху избран файл.

 

Private Sub Label4_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Label4.FontSize = 15

End Sub

 

Това е събитие, което се изпълнява когато мишката попадне върху контрола Label4. А кода в нея прави размера на шрифта на контрола да е равен на 15.

[RSFireblade]

Мерси