Видишь ли. Системные цвета и внешности контролов в ХР и w98 различаются (

Это реальный трабл и для меня самого.

Попробуй FlatScrollBar

Ответить

Кстати, если использовать InitCommonControls+манифест, вид ползунка в ХР меняется даже без включенной темы визуального оформления

Ответить

Ответить

Средство включить отрисовку контролов в программе в стиле Luna

Ответить

Ответить

Имелось ввиду следующее: ресурс/файл манифест (его можно подсмотреть у прог работающих в стиле ХР), после добавления данного файлика, остается только в первой форме при Form_Initializate/Sub_Main прописать InitCommonControls(Ex) и все будет работать...

Ответить

> Form_Initializate/Sub_Main прописать InitCommonControls(Ex) и все будет работать

наверное я тупой ... пишу

Sub Form_Initializate() ' в Sub_Main

        InitCommonControls (Ex) ' и он мне пишет переменная не определена

End Sub

и че теперь... где этот файлик. не томите работать хотся!!!

Ответить

Верно ты немного не понял:

Private Declare Function InitCommonControlsEx Lib "comctl32.dll" (ByRef TLPINITCOMMONCONTROLSEX As INITCOMMONCONTROLSEX) As Long

Private Declare Sub InitCommonControls Lib "comctl32.dll" ()

Ну а файлик-то найдешь либо с какой-нить прогой, или в ресурсах программы, посмотри!

Ответить

спасибо sne за посылку с кнопочками, но мне твоя прога -- работа среестром больше понравилась.

если не возражаешь я сдеру оттуда несколько идей.

В действительности на VB я не так давно, с начала этого года, правда пытался что-то делать до этого на VBA (даже продал кое-что, но так мелочь). еще раньше пыркался на QBasic, поэтому не обесудь за глупые вопросы, ведь  у меня роме ВАС никого нету, а так хочется научится! А где учится как ни здесь, где всегда помогут даже такому неучу как я!

В АПИ я вообще не силен ( а в остальном тоже!), но я знаю одну истину, если человек ищет, он найдет. только зачастую людям хочется побыстрее и как можно больше, пусть даже не своими руками.

Но я думаю гораздо интереснее сделать все самому, поэтому я страюсь разобраться в любом примере, который ВЫ мне высылаете или приклеиваете прямо здесь. Правда из-за некоторых вещей, которые ВАМ кажутся саморазумеющимися ВАШИ советы мне непонятны, поэтому и только поэтому мне приходится задавать вопрос за вопросом, которые в свою очередь выглядят все глупее и глупее. Чё-то ... на ночь глядя... меня на лирику потянуло... думаю ВЫ поняли че я хотел сказать. не сердчайте!

------------------------------------------------------------------------------------

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

Ответить

Ответить

Понял, в таком случае ты верно еще не знаком с ApiViewer'ом...

Private Type INITCOMMONCONTROLSEX
 
	dwSize As Long 'size of this structure
 
	dwICC As Long 'flags indicating which classes to be initialized
 
End Type

Ответить

Luna - визуальный стиль оформления продуктов Microsoft, впервые реализованный в XP - красивые овальные кнопочки, скругленые окна и т.п.

Вместо InitCommonControlsEx можно использовать InitComonControls: у него нет параметров.

Ответить

Ответить

а что надо сделать, чтобы вот такая вещь действовала в W98 и показывала контролы как в ХР?

Private Declare Sub InitCommonControls Lib "comctl32" ()

Private Sub Form_Initialize()
       InitCommonControls
End Sub

Ответить

написать свой аналог такого контрола... иначе не получится... Кнопочки фрэймы, опшен-баттоны все это уже сделано и валяется в изобилии везде (другое дело что некоторые сделаны кривовато)... вот скрола - еще не видел...

Ответить