ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Размер формы
11 сообщений из 11, страница 1 из 1
Размер формы
    #34291245
timtim
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
timtim
Участник
Подскажите пожалуйста как сделать форму произвольных размеров т.е., на форму наносятся контролы рисуются линии но они (контролы и линии) выходят далеко за пределы формы, не все конечно, только те которые выходят за пределы масштаба ("не хватает разрешения экрана" я делаю типа карты чтоб можно было как бы прокручивать форму ввех-вниз при этом отсчет пикселов идет из центра экрана не пойму как сделать это, а контролы и линии надо нанести сразу при загрузке формы, хм... или поэкранно).
...
Рейтинг: 0 / 0
29.01.2007, 22:26
| Ответить | Цитировать | Написать  
Размер формы
    #34292107
Фотография Aklin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Aklin
Участник
больше чем экран врядли получиться

создай Frame (PitureBox для Line методов) и мотай его по форме.

аффтопитезь: объект либо именован, либо не существует
...
Рейтинг: 0 / 0
30.01.2007, 11:49
| Ответить | Цитировать | Написать  
Размер формы
    #34292205
timtim
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
timtim
Участник
мотать Frame это дело, но если frame размером с форму то он не мотается
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
Private Sub Form_DragDrop(Source As Control, X As Single, Y As Single)
Frame1.Move X, Y
End Sub

Private Sub Frame1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Frame1.Drag vbBeginDrag
End Sub

Private Sub Frame1_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
Frame1.Move X - Frame1.Width, Y - Frame1.Height
End Sub
...
Рейтинг: 0 / 0
30.01.2007, 12:08
| Ответить | Цитировать | Написать  
Размер формы
    #34292217
Фотография Aklin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Aklin
Участник
забей на Drag_Drop

используй Mouse_Move

аффтопитезь: объект либо именован, либо не существует
...
Рейтинг: 0 / 0
30.01.2007, 12:11
| Ответить | Цитировать | Написать  
Размер формы
    #34292420
timtim
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
timtim
Участник
подскажи, плиз, как мне отследить на сколько "вылазит" за пределы формы frame
...
Рейтинг: 0 / 0
30.01.2007, 12:50
| Ответить | Цитировать | Написать  
Размер формы
    #34292527
Фотография Aklin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Aklin
Участник
timtimподскажи, плиз, как мне отследить на сколько "вылазит" за пределы формы frame

1) определи размер Frame
2) центрируй, например.
3) размер за пределами формы: Form.ScaleWidth-Frame.Width (это без бордеров)
...
Рейтинг: 0 / 0
30.01.2007, 13:13
| Ответить | Цитировать | Написать  
Размер формы
    #34292571
timtim
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
timtim
Участник
Спасибо, буду разбираться.
...
Рейтинг: 0 / 0
30.01.2007, 13:22
| Ответить | Цитировать | Написать  
Размер формы
    #34292850
timtim
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
timtim
Участник
не пойму никак, как сделать
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
Private Sub Form_Load()
Frame1.Top = Form1.ScaleHeight /  2  - Frame1.Height /  2 
Frame1.Left = Form1.ScaleWidth /  2  - Frame1.Width /  2 
End Sub

Private Sub Frame1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button =  1  Then
Frame1.Left = Frame1.Left + X /  10 
Frame1.Top = Frame1.Top + Y /  10 
End If
End Sub
сделал так, но чёто не то получается, как бы разрулить
...
Рейтинг: 0 / 0
30.01.2007, 14:11
| Ответить | Цитировать | Написать  
Размер формы
    #34293418
Фотография Aklin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Aklin
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
Option Explicit

Dim XX As Single, YY As Single, Down As Boolean

Private Sub Form_Load()
  pic.Picture = LoadPicture("D:\f\Daily\2007_01_27\waqlls\aaa.jpg")
  
  pic.Left = (Me.ScaleWidth - pic.Height) /  2 
  pic.Top = (Me.ScaleHeight - pic.Height) /  2 
End Sub

Private Sub pic_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  Down = True
  XX = X
  YY = Y
End Sub

Private Sub pic_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  If Down Then
    pic.Left = pic.Left + (X - XX)
    pic.Top = pic.Top + (Y - YY)
  End If
End Sub

Private Sub pic_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
  Down = False
End Sub

короче, понятно

аффтопитезь: объект либо именован, либо не существует
...
Рейтинг: 0 / 0
30.01.2007, 16:01
| Ответить | Цитировать | Написать  
Размер формы
    #34293541
timtim
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
timtim
Участник
Спасибо большое, это то что нужно, я чето с арифметикой запарился
...
Рейтинг: 0 / 0
30.01.2007, 16:28
| Ответить | Цитировать | Написать  
Размер формы
    #34300506
timtim
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
timtim
Участник
Подскажите ещё, пожалуйста. Сделал всё это на основе Frame на frame наношу Label, но когда начинаю двигать frame те labelы которые были на границе экрана начинают растягиваться пока не отпустишь мыша, как спарвиться?
...
Рейтинг: 0 / 0
01.02.2007, 21:42
| Ответить | Цитировать | Написать  
11 сообщений из 11, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Размер формы
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&gotonew=1&tid=2164590]:
 0ms
get settings:
 6ms
get forum list:
 14ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 134ms
get topic data:
 9ms
get first new msg:
 5ms
get forum data:
 2ms
get page messages:
 51ms
get tp. blocked users:
 1ms
others: 213ms
total:  441ms
созд. / загр.: 441ms
x
x
Закрыть


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