DiBR
обычная кошмарная
домашняя страничка
Ежекакполучится околокомпьютерное обозрение
 
  <<<  предыдущий Tech! archive #548 следующий  >>>  
   Последний выпуск       Архив       Ссылки       Полезности       humor.filtered       Фотки       О сайте   
          Это - достаточно беспорядочный архив сообщений конференций сети fidonet, которые на момент их прочтения мной показались полезными или интересными. Многие устарели, многие узкоспецифичны и малоинтересны, но может оказаться и что-то новое...
         
- __techs (2:5015/42) ----------------------------------------------- __techs -
Msg  : 548 of 1000
From : Boris Rudoy                         2:5030/115.19   23 Nov 97  12:20:52
To   : All                                                 24 Nov 97  12:43:28
Subj : faq part 2
-------------------------------------------------------------------------------
@AREA:RU.VISUAL.BASIC
Здравствуйте достопочтимый All!

Продолжение FAQ

 1. Cвойство шрифтов - страна
 2. Мой VB не узнает проектов *.vbp
 3. Коллекция картинок
 4. Как установить окно "on top"
 5. Проблема с SSTab
 6. Где взять графический ОСХ для работы с графиками и диаграммама
 7. Как запретить запуск второй копии программы

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

1. Cвойство шрифтов - страна

Q:  Подскажите, как получить свойство шрифтов, отвечающее за "страну"
а то все "Западная Европа " подставится норовит

A: Oleg Slobodchikov

Font.Charset

0 - Default
204 - Russia


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



2. Мой VB не узнает проектов *.vbp

Q:     Проблема вот в чем:
Visual Basic 4.0 не грузит файлы проекта с расширением VBP.    Как их туда
можно загнать, если он понимает только расширение MAK?

A: Boris Rudoy

У тебя та "странная " версия 4Vb, которая получена апгрейтом от третьего.
Есть такая. В ней странности не только с этим, но и с некоторыми
библиотеками.  Во всяком случае рекомендую тебе ее переустановить при
первой возможности. С проектами можно поступать так: создать новый проект,
и добавить в него все файлы , вхолящие в старый. Посмотреть какие вхолят
можно  нотпэдом, или любым редактором.



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

3. Коллекция картинок

Q:  У меня есть объекты image1 image2 image3 .... image99 , допустим ... И
мне надо в зависимости от результата написать или такой объект или  другой
как мне заменить циферки 1,2,3...99 на переменную (например XY) ???
Строка   game.Image(XY).Picture=Image2        Hичего не дает кроме ошибки
"Invalid qualifier"  Как я не пробовал по другому , не получается ...

P.S. Индекс к одному и тому же объекту использовать не советуйте ...

A: Boris Rudoy

oбьяви Imades as Collection далее добавляешь элементы в колектцию примерно
так
Images.Add (Image1,1)
Второй элемент  в скобках это ключ, он очень похож на индекс,но это не
индекс,  а строковое выражение  (в хелп залезь таки:))
короче используя метод Item ты сможешь получить любой элемент коллекции,
примерно так

Images.Item(1).Picture=Image2

вот тут то вместо единицы можешь поставить переменную

PS А по поводу индексов для обекта - ты напрасно, динамически создаваемые
обьекты вешь очень удобная, к тому -же экономит ресурсы. Может ты просто с
ними не разобрался?


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



4. Как установить окно "on top"

Q:  Я хотел бы (очень), чтобы окно-форма был всегда сверху, т.е. "on the
top". В с++ я такое делал, а как с этим обстоит в VB v.5.0.

A: Boris Rudoy

Public Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long,
ByVal  hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx
As Long, ByVal cy As Long, ByVal wFlags As Long) As Long

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

Private Const HWND_NOTOPMOST = -2
Private Const SWP_NOACTIVATE = &H10
Private Const SWP_NOMOVE = &H2
Private Const SWP_NOSIZE = &H1

Dim t As Long
t = SetWindowPos(frmSearch.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOACTIVATE
Or SWP_NOSIZE Or SWP_NOMOVE)

Посмотри еще хелп к этой ф-ции, она по разному настраивается.


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

5. Проблема с SSTab

 Q: Есть такой баг ( а может быть и фича, но от этого не легче :( )
Выносим SSTab на фоpму. Делаем ему кучу закладок. Кидаем на каждую   дpугие
контpольчики. Все бы ничего, но иногда ( толи такой неудачный Tab
попадается ) получается так, что пpи исполнении самопpоизвольно
включается  одна из закладок, пpичём всегда одна и та же( для конкpетного
Tab'а ).   Обычно это пpоисходит пpи попытке сделать
<control_на_табе>.SetFocus() .   Hо этот контpол находится на дpугой
закладке, а не той,   котоpая включается !!! Может кто боpолся с таким, а ?

A: Boris Rudoy
Попробуй
SSTab1.Tab = N
<control_на_табе>.SetFocus()

N- это номер закладки, на котором твой контрол.


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

6. Где взять графический ОСХ для работы с графиками и диаграммама

Q:  Hе подскажет ли всезнающий All, где в I-Net'е можно "намутить"   OCX,
который умеет стоить графики, задаваемые таблицей и/или формулой?

 Hint:   Hу на "худой конец" хотя бы название сей весчи прознать, я уж
её   сам как-нибудь разыщу! ;-)

A: прогуляйся до   www.pinpub.com/gserver
Там что-то на эту тему было. (ничего не гарантирую, так, воспоминания)


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

7. Как запретить запуск второй копии программы

Q:  Как можно yзнать какие аппликyхи запyщены под виндами?  B чаcтноcти
надо cделать, чтоьы пpогy нельзя было дважды запycтить.

A: scugarev@sun.ipr.serpukhov.su

If  App.PrevInstance Then End



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



Boris

           Hапиши мне, напиши ...

│││ E-Mail:  br-mail@usa.net   WWW: http://www.ultinet.net/~b_rudoy
--- GoldED/386 3.00.Alpha4+
* Origin:  BORIS HEARTH   (2:5030/115.19)






<<<

архив dibr

>>>'