ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Выполнение приложения на компе без VB
15 сообщений из 15, страница 1 из 1
Выполнение приложения на компе без VB
    #33936088
Саня_OTIS
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Саня_OTIS
Гость
Здравствуйте, подскажите пожалуйста:
1 Что надо сделать, чтобы приложение созданное на VB выполнялось на других компьютерах (они требуют других компонентов)+в моей проге используется winsock.
2 При посылке сообщения (winsock.senddata) мне надо разделить одно сообщение на 2 части: команда и число , сначала я пользовался оператором right, но числа приходят и однозначные и трёхзначные и в итоге он отрезает не то что надо.
3 Можно ли текст в caption принять за название кнопки и сделать следующую вещь?
...
dim a as commandbutton
label.caption=a
a.caption=...
a.text=...
...
...
Рейтинг: 0 / 0
22.08.2006, 23:23
| Ответить | Цитировать | Написать  
Выполнение приложения на компе без VB
    #33936260
TIKO
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
TIKO
Гость
1. Нужно создать пакет инстальник, или вручную копировать все библиотеки используемые для твоей проги .Есть програмки для создания инсальников типа SetUp Fectory
2. Пример наглядный что есть и как должно выглядеть
3.

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
Dim s As CommandButton
Set s = Controls.Add("VB.CommandButton", "NewButton", Me) 'новая кнопка NewButton
s.Caption = 'надпись на кнопке
s.Top =  100  'положение кнопки
s.Left =  150  '
s.Width =  1000  'размер кнопки
s.Height =  500  '

Label1.Caption = s.Caption 'передаем надпись на кнопке
Label1.Caption = s.Name 'передаем имя кнопки
s.Visible = True
...
Рейтинг: 0 / 0
23.08.2006, 07:37
| Ответить | Цитировать | Написать  
Выполнение приложения на компе без VB
    #33936343
AndreyMp
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AndreyMp
Участник
2. Как вариант.
Разбираем строку на предмет Asc(символ)>=48 и Asc(символ)<=57, как только не попадаем в диапазон - считаем, что дальше буквы.
...
Рейтинг: 0 / 0
23.08.2006, 08:56
| Ответить | Цитировать | Написать  
Выполнение приложения на компе без VB
    #33936469
Саня_OTIS
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Саня_OTIS
Гость
Скажите пожалуйста, а как узнать какие библиотеки использует программа?
Простите, перепутал местами - по пункту 3 необходимо не надпись на кнопке передать в label, а надпись в label сделать как имя существующей кнопки, так можно? Просто в приложении 100 кнопок и когда в label приходит их название, они должны менять цвет и чтобы не писать сто if, я хочу сделать, чтоб прога сама читала label и меняла цвет без if.
...
Рейтинг: 0 / 0
23.08.2006, 09:54
| Ответить | Цитировать | Написать  
Выполнение приложения на компе без VB
    #33936516
TIKO
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
TIKO
Гость
если я правильно монял то можно сделать так
Код: plaintext
1.
2.
3.
4.
5.
6.
Dim f As Control
For Each f In Me.Controls
If f.Name = Label1.Caption Then
    f.BackColor = vbRed
    f.Caption = "Нашел!!!"
End If
Next
при условии что Label1.Caption хранит имя кнокпи
что бы найти все библиотеки можно просмотреть путь файлов через
компонентс и референсис (все что с галочкой в списке)
Location
...
Рейтинг: 0 / 0
23.08.2006, 10:13
| Ответить | Цитировать | Написать  
Выполнение приложения на компе без VB
    #33936542
Саня_OTIS
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Саня_OTIS
Гость
Комп требует mswinsck.ocx, а можно ли его скопировать в системную папку вручную или его надо как-то регистрировать? Я на win95 скопировал и после этого он перестал загружаться (wind).
...
Рейтинг: 0 / 0
23.08.2006, 10:21
| Ответить | Цитировать | Написать  
Выполнение приложения на компе без VB
    #33936585
TIKO
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
TIKO
Гость
Саня_OTISКомп требует mswinsck.ocx, а можно ли его скопировать в системную папку вручную или его надо как-то регистрировать? Я на win95 скопировал и после этого он перестал загружаться (wind).

если попроще все это сделать то просто установить VB6 только компоненты на кл. машине если хотите сделать инстальник то могу скинуть прогу setup fectory автоматически соберет все библ.
...
Рейтинг: 0 / 0
23.08.2006, 10:31
| Ответить | Цитировать | Написать  
Выполнение приложения на компе без VB
    #33936632
Саня_OTIS
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Саня_OTIS
Гость
Скиньте, пожалуйста. Это у друга на компе winsck.ocx требует для моей проги, а весь VB ему ставить нет смысла.
...
Рейтинг: 0 / 0
23.08.2006, 10:41
| Ответить | Цитировать | Написать  
Выполнение приложения на компе без VB
    #33936813
TIKO
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
TIKO
Гость
Уже
...
Рейтинг: 0 / 0
23.08.2006, 11:16
| Ответить | Цитировать | Написать  
Выполнение приложения на компе без VB
    #33936956
Саня_OTIS
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Саня_OTIS
Гость
TIKOесли я правильно монял то можно сделать так
Код: plaintext
1.
2.
3.
4.
5.
6.
Dim f As Control
For Each f In Me.Controls
If f.Name = Label1.Caption Then
    f.BackColor = vbRed
    f.Caption = "Нашел!!!"
End If
Next
при условии что Label1.Caption хранит имя кнокпи
что бы найти все библиотеки можно просмотреть путь файлов через
компонентс и референсис (все что с галочкой в списке)
Location

после этой строчки,
Private Sub Label1_Change()
f = Label1.Caption
Dim f As Control
For Each f In Me.Controls
If f.Name = Label1.Caption Then
f.BackColor = vbRed
f.Caption = "Íàøåë!!!"
End If
Next
End Sub
как я и предполагал, ошибка возникает:
Compile error:
duplicate declaration in current scope
...
Рейтинг: 0 / 0
23.08.2006, 11:48
| Ответить | Цитировать | Написать  
Выполнение приложения на компе без VB
    #33936969
TIKO
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
TIKO
Гость
Саня_OTIS TIKOесли я правильно монял то можно сделать так
Код: plaintext
1.
2.
3.
4.
5.
6.
Dim f As Control
For Each f In Me.Controls
If f.Name = Label1.Caption Then
    f.BackColor = vbRed
    f.Caption = "Нашел!!!"
End If
Next
при условии что Label1.Caption хранит имя кнокпи
что бы найти все библиотеки можно просмотреть путь файлов через
компонентс и референсис (все что с галочкой в списке)
Location

после этой строчки,
Private Sub Label1_Change()
f = Label1.Caption
Dim f As Control
For Each f In Me.Controls
If f.Name = Label1.Caption Then
f.BackColor = vbRed
f.Caption = "Íàøåë!!!"
End If
Next
End Sub
как я и предполагал, ошибка возникает:
Compile error:
duplicate declaration in current scope


убери f = Label1.Caption это
...
Рейтинг: 0 / 0
23.08.2006, 11:50
| Ответить | Цитировать | Написать  
Выполнение приложения на компе без VB
    #33937010
Саня_OTIS
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Саня_OTIS
Гость
Всё, заработало! Спасибо! Я, как всегда, не туда посмотрел и лишнюю строчку написал.
...
Рейтинг: 0 / 0
23.08.2006, 11:57
| Ответить | Цитировать | Написать  
Выполнение приложения на компе без VB
    #33939011
blinow
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
blinow
Участник
По 2
Работая с Winsocom, на твоих хрупких плечах лежит вся работа и ответственность за пересылку. Делай примерно следующее.
Используй заголовок сообщения. Например заголовок ты принял всегда состоит из двух символов, "NN" - хочу отправить команду и число, на другом конце по получении "NN", отправляешь "SS" - давай посылай, принял, отправляешь "ККCommand^15478^", выставляешь флаг, что отправил блок данных, получаешь , первые два символа (анализируешь) убираешь, зная что KK это дальше идут данные, Command - Это твоя команда ^ это разделитель, того что посылаешь, в конце дело твое или просто ^ разделитель и дальше ничего, или какой то завершающий символ или контрольное число, для проверки посланного сообщения, что оно целиком дошло. По получении блока данных, обязательно отправляшь типа "OK", что все принял, если "OK" не вернулось, значит ошибка и снова посылаешь тот же блок, если вернулось "OK" убираешь флаг, что отправил данные (флаг уже не нужен т.к. Ok) далее или следующий блок или ни чего.
Если не использовать завершающий символ, то нельзя подряд отправлять сообщения, они сольються в типа "KKCommand1^564654^KKCommand2^654654^" и при разборе сообщения вторая команда пройдет типа как данные KKCommand2, если использовать завершающий символ, то вполне можно разбирать строку сообщения посланную подряд "KKCommand1^2215454@KKCommand2^54544@" и тд и тп.
Вобщем все в твоих руках.
...
Рейтинг: 0 / 0
24.08.2006, 04:12
| Ответить | Цитировать | Написать  
Выполнение приложения на компе без VB
    #33944710
Саня_OTIS
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Саня_OTIS
Гость
Спасибо за совет, я воспользовался MID ("обьект", "№откуда начинать кусать слева", "№сколько символов кусать").

И у меня ещё вопросик - можно ли назначить горячими клавиши up, down, left и right без шифтов, контролов и т д?
...
Рейтинг: 0 / 0
26.08.2006, 14:35
| Ответить | Цитировать | Написать  
Выполнение приложения на компе без VB
    #34019990
Charles Weyland
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Charles Weyland
Участник
если я правильно тебя понял, то ты хочешь, что бы Up, Down, Right, Left работали только тогда, когда не нажаты клавиши Alt, Ctrl, Shift, верно?

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
'Если не нажаты Ctrl, Alt и shift, то
If Shift = 0 Then
Select Case KeyCode
Case vbKeyUp
'Нажата клавиша вверх
...
Case vbKeyDown
'Нажата клавиша вниз
'Нажата клавиша вниз
...
Case vbKeyRight
'Нажата клавиша вправо
...
Case vbKeyLeft
'Нажата клавиша влево
...
End Select
End If
End Sub
...
Рейтинг: 0 / 0
28.09.2006, 17:42
| Ответить | Цитировать | Написать  
15 сообщений из 15, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Выполнение приложения на компе без VB
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=33936813&tid=2165249]:
 0ms
get settings:
 9ms
get forum list:
 18ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 212ms
get topic data:
 11ms
get forum data:
 2ms
get page messages:
 66ms
get tp. blocked users:
 1ms
others: 253ms
total:  580ms
созд. / загр.: 580ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]