Visual Basic в вопросах и ответах

PB_EXPERT

оф топ

В библиотеке NET

Использование данной библиотеки считаю не очень дальновидным!
Если бы она была бы нужна только при разработке приложения, то как говорится вопросов нет, но она ведь нужна и для выполнения скомпилированого приложения!
И что будет делать юзер, в системе которого нет требуемой версии этобй библиотеки (которая кстати весит пару десятков метров)?
Правильно, он матерясь сбросит приложение в корзину и забудет о нём как о страшном сне!

А если так, то какой смысл кодить программу, если её смогут использовать не все желающие, а только некоторые?

Это моё личное мнение и вы праве с ним не согласится.

pirotehnick

PB_EXPERT писал(а):Если бы она была бы нужна только при разработке приложения, то как говорится вопросов нет, но она ведь нужна и для выполнения скомпилированого приложения!

А в чём проблемы? Приложение просто подогружает требуемые библиотеки и берёт из них то, что ему нужно.

PB_EXPERT писал(а):И что будет делать юзер, в системе которого нет требуемой версии этобй библиотеки (которая кстати весит пару десятков метров)?

Я не думаю, что для кого-то это будет такой уж непреодолимой проблемой в её добычи и установки. Тоже самое вы моли бы сказать и про другой софт.

PB_EXPERT писал(а):Правильно, он матерясь сбросит приложение в корзину и забудет о нём как о страшном сне!

А что же сделает чел у которого нет архиватора или PDF ридера,... что он удалит все свои архивы и pdf файлы???
Кроме того, если прога написана под NET, а его у вас нету, то она должна выкинуть сообщение, о небходмости установки Framework требуемой версии.

И надо сказать что у Basic NET есть несомненные приимущества перед 6 бейсиком. Другое дело если писать на Си, здесь лучше юзать MFC, т.к. платформа NET всё равно дюже тормознутая, хотя и по шустрее явы

pro_grammer

pirotehnick писал(а):И надо сказать что у Basic NET есть несомненные приимущества перед 6 бейсиком.

В VB 6 не было нормального ООП. А в VB.Net оно есть.Если это для вас не (главное) приемущество, то смысла переходить с VB6 нет.

А уж то, что надо для каждой новой версии свой Framework( весом 20-30 метров), так это и вообще дурдом. У меня лично уже есть 1.1, 2.0, 3.0 и последняя для Visual Studio 2008 RUS Framework v.3.5

Если это для конечного пользователя не проблема, то что тогда проблема, когда для исполнения 10 кб. файла нужна 35 Мб библиотека?

Jack_A

По-чайницки вдруг заинтересовался : а есть VB - free В смысле халявный?

pro_grammer

Jack_A писал(а):По-чайницки вдруг заинтересовался : а есть VB - free В смысле халявный?

Microsoft Visual Basic 2008 экспресс выпуск, халявный, с русификацией.
Из ограничений основное, на мой взгляд - отсутствие средств программирования мобильных устройств под Win Mobile.

Это из новейших, а из старых VB6 - самый распространенный, вроде тоже денег не просит, PRO версия в составе VisualStudio платная, а сам по себе распространяется даром, по крайней мере есть "облегченные" версии.

Деня

как и чем писать прги под Win Mobile.

Деня

Пол нета перелапател, скоро глаза вылезут, настройки на с++ вроде есть
а на VB вроде нет; есть умная книга, но стоит кучу денег, халява не получается хоть совет какой дайте :cry:

pro_grammer

Можно в Viaual Studio 2005 на VB ( может и в других, но у меня их нет). Как обычно, выбираешь соответствующий проект(Smart App.) и кодишь!

Деня

Спасибо, домой доберусь домой буду ковырять.

кто знает почему так
X=2
form1.show
form1.textbox1.text=X

все работает
но если

X=2
form1.show 1
form1.textbox1.text=X
работает строго после второго открытия формы-открыл, закрыл, открыл и только тогда срабатывает передача.

Ivan_83

Хелп читай.
Там описаны все константы.
Кроме того, там не 1 должна передаватся, а по уму, что то из набора констант, типа vbShowNormal или что то в этом роде.

буду искать helps (не установлены, дистрибутив плохой). а еще такой вопрос:
надо сделать функцию, чтобы при её вызове на форме появлялось image поле -- программным путем
НО поле будет не одно а несколько так вот надо внедрить в имя поля index
image(0)
image(1)
image(2)
...
пока получается только так

Код: Выделить всё

For i = 0 To UBound(pribor, 2)
image_prib = "image_" & i
      
Set image_prib = Controls.Add("VB.Image", image_prib)
  With image_prib
                .DragMode = 1
                .Height = pribor(6, i) 
                .Width = pribor(7, i)
                .Top = pribor(8, i)
                .Left = pribor(9, i)
                .BorderStyle = 0
                .Stretch = True
                .Visible = True
  End With

local_image = local_pribor_image & i & "_1image.jpg"
If Not Dir(local_image) = vbNullString Then image_prib.Picture = LoadPicture(local_image) Else image_prib.Picture = LoadPicture(local_pribor_image & "no_image.JPG")

j = "imageLab_" & i
Set j = Controls.Add("VB.Label", j)
With j
                .DragMode = 1
                .Height = 20
                .Width = pribor(6, i)
                .Top = pribor(8, i) + pribor(7, i) / 1
                .Left = pribor(9, i)
                .BorderStyle = 1
                .Visible = True
                
  End With
  j.Caption = pribor(0, i) & pribor(1, i)

Next i

помогите c indexом

\\Sergey//

Ivan_83 писал(а):Кроме того, там не 1 должна передаватся

Необязательно. Можно передать как непосредственное значение, так и константу.
Например, зачем писать FILE_ATTRIBUTE_ARCHIVE, когда можно просто поставить &H20?

Ivan_83 писал(а):типа vbShowNormal или что то в этом роде

vbShowNormal - такой константы нет.

demson писал(а):надо сделать функцию, чтобы при её вызове на форме появлялось image поле -- программным путем
НО поле будет не одно а несколько так вот надо внедрить в имя поля index
image(0)
image(1)
image(2)

Это имелось ввиду (пример с PictureBox)?:

Код: Выделить всё

Private Sub Command1_Click()
    Dim x(2) As PictureBox
    For i = 0 To 2
        Set x(i) = Controls.Add("VB.PictureBox", "picName" & i)
        x(i).Visible = True
        x(i).Top = i * x(i).Height
    Next i
    x(0).BackColor = vbWhite
    x(1).BackColor = vbBlue
    x(2).BackColor = vbRed
End Sub

Set x(i) = Controls.Add("VB.PictureBox", "picName" & i) - это то что надо

а как сделать событие у динамически созданного элемента

не срабатывает.

\\Sergey//

В данном случае это реализуется с помошью модулей класса.
Добавьте в проект модуль класса и в него скопируйте вот такой код:

Код: Выделить всё

Public WithEvents X As VB.PictureBox

Private Sub X_Click()
    MsgBox X.Tag
End Sub

А вот этот код вставьте в форму:

Код: Выделить всё

Private XX(9) As Class1

Private Sub Form_Load()
Dim i As Integer
For i = 0 To 2
    Set XX(i) = New Class1
    Set XX(i).X = Controls.Add("VB.PictureBox", "XX" & i)
    XX(i).X.Visible = True
    XX(i).X.Top = i * XX(i).X.Height
    XX(i).X.Tag = i
Next i
XX(0).X.BackColor = vbWhite
XX(1).X.BackColor = vbBlue
XX(2).X.BackColor = vbRed
End Sub

Private XX(9) As Class1

а что обозначает эта строка?

\\Sergey//

Объявляем массив.

и еще вопрос как class модуля поменять свойство visible некоторого объекта например text.visible?

ладно со свойствами разобрался, просто имя формы. имя контрола
и еще вопрос а динамически модули подключить можно?

Sounds

Кто знает как работать с USB 2.0 в Visual Basic 6.0?
Поделитесь ссылками. В заранее спасибо!!!