Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Выполнение приложения на компе без VB / 15 сообщений из 15, страница 1 из 1
22.08.2006, 23:23
    #33936088
Саня_OTIS
Саня_OTIS
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Выполнение приложения на компе без VB
Здравствуйте, подскажите пожалуйста:
1 Что надо сделать, чтобы приложение созданное на VB выполнялось на других компьютерах (они требуют других компонентов)+в моей проге используется winsock.
2 При посылке сообщения (winsock.senddata) мне надо разделить одно сообщение на 2 части: команда и число , сначала я пользовался оператором right, но числа приходят и однозначные и трёхзначные и в итоге он отрезает не то что надо.
3 Можно ли текст в caption принять за название кнопки и сделать следующую вещь?
...
dim a as commandbutton
label.caption=a
a.caption=...
a.text=...
...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.08.2006, 07:37
    #33936260
TIKO
TIKO
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Выполнение приложения на компе без VB
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, 08:56
    #33936343
AndreyMp
AndreyMp
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Выполнение приложения на компе без VB
2. Как вариант.
Разбираем строку на предмет Asc(символ)>=48 и Asc(символ)<=57, как только не попадаем в диапазон - считаем, что дальше буквы.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.08.2006, 09:54
    #33936469
Саня_OTIS
Саня_OTIS
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Выполнение приложения на компе без VB
Скажите пожалуйста, а как узнать какие библиотеки использует программа?
Простите, перепутал местами - по пункту 3 необходимо не надпись на кнопке передать в label, а надпись в label сделать как имя существующей кнопки, так можно? Просто в приложении 100 кнопок и когда в label приходит их название, они должны менять цвет и чтобы не писать сто if, я хочу сделать, чтоб прога сама читала label и меняла цвет без if.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.08.2006, 10:13
    #33936516
TIKO
TIKO
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Выполнение приложения на компе без VB
если я правильно монял то можно сделать так
Код: 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:21
    #33936542
Саня_OTIS
Саня_OTIS
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Выполнение приложения на компе без VB
Комп требует mswinsck.ocx, а можно ли его скопировать в системную папку вручную или его надо как-то регистрировать? Я на win95 скопировал и после этого он перестал загружаться (wind).
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.08.2006, 10:31
    #33936585
TIKO
TIKO
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Выполнение приложения на компе без VB
Саня_OTISКомп требует mswinsck.ocx, а можно ли его скопировать в системную папку вручную или его надо как-то регистрировать? Я на win95 скопировал и после этого он перестал загружаться (wind).

если попроще все это сделать то просто установить VB6 только компоненты на кл. машине если хотите сделать инстальник то могу скинуть прогу setup fectory автоматически соберет все библ.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.08.2006, 10:41
    #33936632
Саня_OTIS
Саня_OTIS
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Выполнение приложения на компе без VB
Скиньте, пожалуйста. Это у друга на компе winsck.ocx требует для моей проги, а весь VB ему ставить нет смысла.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.08.2006, 11:16
    #33936813
TIKO
TIKO
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Выполнение приложения на компе без VB
Уже
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.08.2006, 11:48
    #33936956
Саня_OTIS
Саня_OTIS
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Выполнение приложения на компе без VB
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:50
    #33936969
TIKO
TIKO
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Выполнение приложения на компе без VB
Саня_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:57
    #33937010
Саня_OTIS
Саня_OTIS
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Выполнение приложения на компе без VB
Всё, заработало! Спасибо! Я, как всегда, не туда посмотрел и лишнюю строчку написал.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.08.2006, 04:12
    #33939011
blinow
blinow
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Выполнение приложения на компе без VB
По 2
Работая с Winsocom, на твоих хрупких плечах лежит вся работа и ответственность за пересылку. Делай примерно следующее.
Используй заголовок сообщения. Например заголовок ты принял всегда состоит из двух символов, "NN" - хочу отправить команду и число, на другом конце по получении "NN", отправляешь "SS" - давай посылай, принял, отправляешь "ККCommand^15478^", выставляешь флаг, что отправил блок данных, получаешь , первые два символа (анализируешь) убираешь, зная что KK это дальше идут данные, Command - Это твоя команда ^ это разделитель, того что посылаешь, в конце дело твое или просто ^ разделитель и дальше ничего, или какой то завершающий символ или контрольное число, для проверки посланного сообщения, что оно целиком дошло. По получении блока данных, обязательно отправляшь типа "OK", что все принял, если "OK" не вернулось, значит ошибка и снова посылаешь тот же блок, если вернулось "OK" убираешь флаг, что отправил данные (флаг уже не нужен т.к. Ok) далее или следующий блок или ни чего.
Если не использовать завершающий символ, то нельзя подряд отправлять сообщения, они сольються в типа "KKCommand1^564654^KKCommand2^654654^" и при разборе сообщения вторая команда пройдет типа как данные KKCommand2, если использовать завершающий символ, то вполне можно разбирать строку сообщения посланную подряд "KKCommand1^2215454@KKCommand2^54544@" и тд и тп.
Вобщем все в твоих руках.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.08.2006, 14:35
    #33944710
Саня_OTIS
Саня_OTIS
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Выполнение приложения на компе без VB
Спасибо за совет, я воспользовался MID ("обьект", "№откуда начинать кусать слева", "№сколько символов кусать").

И у меня ещё вопросик - можно ли назначить горячими клавиши up, down, left и right без шифтов, контролов и т д?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.09.2006, 17:42
    #34019990
Charles Weyland
Charles Weyland
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Выполнение приложения на компе без VB
если я правильно тебя понял, то ты хочешь, что бы 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
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Выполнение приложения на компе без VB / 15 сообщений из 15, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 466ms
Закрыть
start [/forum/topic.php?fid=60&mobile=1&tid=2165249]:
 0ms
get settings:
 7ms
get forum list:
 10ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 158ms
get topic data:
 7ms
get forum data:
 2ms
get page messages:
 30ms
get tp. blocked users:
 1ms
others: 247ms
total:  466ms
x
x
Закрыть


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