Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - Общий форум

Страница: 1 | 2 | 3 |

 

  Вопрос: ActiveX: Нужен прогрессбар с стиле WIndows XP Добавлено: 03.08.06 15:45  

Автор вопроса:  MYSTERIOR | Web-сайт: XXX | ICQ: 227369659 

Ответить

  Ответы Всего ответов: 41  

Номер ответа: 16
Автор ответа:
 LeX



ICQ: 301424893 

Вопросов: 28
Ответов: 277
  Web-сайт: www.vbkoders.info
 Профиль | | #16 		Добавлено: 03.08.06 20:44
Вот то-то :) Не знаю куда :D Думал в профиле есть ящик... А его там оказывается нет :) Говори...

Ответить

Номер ответа: 17
Автор ответа:
 MYSTERIOR



ICQ: 227369659 

Вопросов: 31
Ответов: 96
  Web-сайт: XXX
 Профиль | | #17 		Добавлено: 03.08.06 20:47
2LeX: так ч0 ты хочешь, я когда регистрировался мне было 11 лет - тогда еще не знал, что такое профайл =) Потом забил на VB на несколько лет, а вот вчера ночью диск попался и ностальгия замучала =))) оказалось, все забыл...


сорри , я в лирику ударился. мой мыл autblaster@inbox.ru

thanx in advance

Ответить

Номер ответа: 18
Автор ответа:
 Серёга



ICQ: 262809473 

Вопросов: 17
Ответов: 561
  Web-сайт: houselab.narod.ru
 Профиль | | #18 		Добавлено: 03.08.06 21:18
хочется чтобы все было содраного с родного ХР'шного прогрессбара

Я так и сделал. Лови:
http://permdance.com/1.bmp
http://permdance.com/3.bmp

Ответить

Номер ответа: 19
Автор ответа:
 LeX



ICQ: 301424893 

Вопросов: 28
Ответов: 277
  Web-сайт: www.vbkoders.info
 Профиль | | #19 		Добавлено: 03.08.06 21:20
@MYSTERIOR
Вкладка "Профиль" рулит :D
ЗЫ. Отсылаю...

Ответить

Номер ответа: 20
Автор ответа:
 MYSTERIOR



ICQ: 227369659 

Вопросов: 31
Ответов: 96
  Web-сайт: XXX
 Профиль | | #20 		Добавлено: 03.08.06 21:23
ИТАК! ГОСПОДА! Я хочу всех поблагодарить кто участвовал в беседе и кто добрался до конца через весь этот флуд =)

Спасибо отдельное товарищам Серёге (за картинку что в конечном итоге мне и помогла) и LeX (за искреннее желание мне помочь, что он и сделал)! Спасибо и всем остальным! Все работает и выгладит как надо!

Ответить

Номер ответа: 21
Автор ответа:
 MYSTERIOR



ICQ: 227369659 

Вопросов: 31
Ответов: 96
  Web-сайт: XXX
 Профиль | | #21 		Добавлено: 03.08.06 21:26
ну раз уж беседа так затянулсь, было бы неплохо если бы вы помогли мне рабобраться еще с одним вопросом, точнее с двумя:

1)как сделать так чтобы в ListBox'e был вертикальный скролбар (нусть даже и неактивный) внезависимости от количества пунктов в нем?

2)у меня есть exe-файл в ресурсах. Как мне записать его на диск из ресурсов?

Ответить

Номер ответа: 22
Автор ответа:
 Серёга



ICQ: 262809473 

Вопросов: 17
Ответов: 561
  Web-сайт: houselab.narod.ru
 Профиль | | #22 		Добавлено: 03.08.06 21:52
как сделать так чтобы в ListBox'e был вертикальный скролбар (нусть даже и неактивный) внезависимости от количества пунктов в нем?

Приставь к листбоксу типа VScroolBar, а когда у листа появится свой - типа VScroolBar.Visible=False ;)

Что такое типа VScroolBar?
Очень просто: это TextBox (.MultiLine=true: .ScroolBars=2: Width=255: .Text="";)

Ответить

Номер ответа: 23
Автор ответа:
 MYSTERIOR



ICQ: 227369659 

Вопросов: 31
Ответов: 96
  Web-сайт: XXX
 Профиль | | #23 		Добавлено: 03.08.06 21:55
а как узнать есть ли у листбокса скроллбар? ведь юзер может просто растянуть форму - тут определенным количеством строк после которого можно будет убирать VScroolBar не отделаешься

Ответить

Номер ответа: 24
Автор ответа:
 Серёга



ICQ: 262809473 

Вопросов: 17
Ответов: 561
  Web-сайт: houselab.narod.ru
 Профиль | | #24 		Добавлено: 03.08.06 22:41
Ну, надо подумать.

Вот тебе на второй вопрос:
Private Sub Form_Load()
Dim Tmp() As Byte, UB As Long, ff As Integer
UB = UBound(LoadResData(101, "exe";))
ReDim Tmp(UB)
Tmp() = LoadResData(101, "exe";)
ff = FreeFile
Open "c:\1.exe" For Binary As ff
For i = 1 To UB + 1
    Put ff, i, Tmp(i - 1)
Next i
Close ff
End Sub

Ответить

Номер ответа: 25
Автор ответа:
 MYSTERIOR



ICQ: 227369659 

Вопросов: 31
Ответов: 96
  Web-сайт: XXX
 Профиль | | #25 		Добавлено: 03.08.06 22:43
спасибо

Ответить

Номер ответа: 26
Автор ответа:
 MYSTERIOR



ICQ: 227369659 

Вопросов: 31
Ответов: 96
  Web-сайт: XXX
 Профиль | | #26 		Добавлено: 03.08.06 23:02
только теперь надо чето с скроллом делать

Ответить

Номер ответа: 27
Автор ответа:
 Серёга



ICQ: 262809473 

Вопросов: 17
Ответов: 561
  Web-сайт: houselab.narod.ru
 Профиль | | #27 		Добавлено: 03.08.06 23:50
определенным количеством строк после которого можно будет убирать VScroolBar не отделаешься

Запросто!!! Косяк толко в том, что константу FontH нужно подбирать для каждого шрифта индивидуально. У меня подобрано под MS Sans Serif 8.

Короче,
Private Const FontH  As Single = 1.57

Private Sub Command1_Click()
List1.AddItem "super-puper"
ShowScrooller List1
End Sub

Private Sub Command2_Click()
If List1.ListCount <> 0 Then List1.RemoveItem List1.ListCount - 1
ShowScrooller List1
End Sub

Private Sub Form_Load()
Command1.Caption = "add"
Command2.Caption = "del"
With Text1
    '.ScrollBars = 2
    .BorderStyle = 0
    .Text = ""
    '.MultiLine = True
    .Width = 255
End With
End Sub

Private Sub Form_Resize()
If Me.Height < 3600 Then Me.Height = 3600
If Me.Width < 3705 Then Me.Width = 3705
With List1
    .Top = 30
    .Left = 30
    .Height = Me.Height - 600
    .Width = 2000
End With
With Text1
    .Left = List1.Left + 1715
    .Top = List1.Top + 30
    .Height = List1.Height - 60
End With
ShowScrooller List1
End Sub

Private Function ListHaveScrooller(Obj As ListBox) As Boolean
Dim FH As Single, LC As Long
FH = Obj.FontSize
LC = Obj.ListCount
If (FH * FontH) * LC > Obj.Height / Screen.TwipsPerPixelY Then ListHaveScrooller = True Else ListHaveScrooller = False
End Function

Private Sub ShowScrooller(Obj As ListBox)
If ListHaveScrooller(Obj) Then Text1.Visible = False Else Text1.Visible = True
End Sub


С тебя бутылка :)))

Ответить

Номер ответа: 28
Автор ответа:
 Sacred Phoenix



ICQ: 304238252 

Вопросов: 52
Ответов: 927
  Профиль | | #28 Добавлено: 04.08.06 00:30
что за ерунда... API, API и ещё раз API. Было куча примеров на тему, виден ли у листбокса скроллбар... в поиск!

If ListHaveScrooller(Obj) Then Text1.Visible = False Else Text1.Visible = True
Text1.Visible = Not ListHaveScroller(Obj)
ну видно народ не мыслит хотя б на шаг вперёд... :(

Private Function ListHaveScrooller(Obj As ListBox) As Boolean
Dim FH As Single, LC As Long
FH = Obj.FontSize
LC = Obj.ListCount
If (FH * FontH) * LC > Obj.Height / Screen.TwipsPerPixelY Then ListHaveScrooller = True Else ListHaveScrooller = False
End Function
мля тоже самое.
Зачем вводить переменные, используемые один раз?
Private Function ListHaveScrooller(Obj As ListBox) As Boolean
ListHaveScrooller = ((FH * FontH) * LC > Obj.Height / Screen.TwipsPerPixelY)
End Function

Ответить

Номер ответа: 29
Автор ответа:
 Sacred Phoenix



ICQ: 304238252 

Вопросов: 52
Ответов: 927
  Профиль | | #29 Добавлено: 04.08.06 00:31
тьфу,
Private Function ListHaveScrooller(Obj As ListBox) As Boolean
ListHaveScrooller = ((Obj.FontSize * FontH) * Obj.ListCount > Obj.Height / Screen.TwipsPerPixelY)
End Function

Ответить

Номер ответа: 30
Автор ответа:
 Серёга



ICQ: 262809473 

Вопросов: 17
Ответов: 561
  Web-сайт: houselab.narod.ru
 Профиль | | #30 		Добавлено: 04.08.06 00:48
API, API и ещё раз API.

MYSTERIOR признался, что несколько лет не кодил, и всё забыл, а ты ему про АПИ втираешь.

Зачем вводить переменные, используемые один раз?

Для того, чтобы понятней было.

Ответить

Страница: 1 | 2 | 3 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам