На главную Наши проекты:
Журнал   ·   Discuz!ML   ·   Wiki   ·   DRKB   ·   Помощь проекту
ПРАВИЛА FAQ Помощь Участники Календарь Избранное RSS
msm.ru
! Правила раздела Visual Basic: Общие вопросы
Здесь обсуждаются вопросы по языку Visual Basic 1-6 (а так же по схожим языкам, как, например, PowerBASIC).
Вопросы по Visual Basic .NET (это который входит в состав Visual Studio 2002/2003/2005/2008+, для тех, кто не в курсе) обсуждаются в разделе .NET.

Обратите внимание:
1. Прежде чем начать новую тему или отправить сообщение, убедитесь, что Вы не нарушаете правил форума!
2. Обязательно воспользуйтесь поиском. Возможно, Ваш вопрос уже обсуждали. Полезные ссылки приведены ниже.
3. Темы с просьбой выполнить какую-либо работу за автора в этом разделе не обсуждаются. Студенты, вам сюда: ПОМОЩЬ СТУДЕНТАМ!
4. Используйте теги [ code=vba ] ...текст программы... [ /code ] для выделения текста программы подсветкой.
5. Помните, здесь телепатов нет. Формулируйте свой вопрос максимально грамотно и чётко: Как правильно задавать вопросы
6. Запрещено отвечать в темы месячной (и более) давности, без веских на то причин.

Полезные ссылки:
user posted image FAQ Сайта user posted image FAQ Раздела user posted image Кладовка user posted image Наши Исходники user posted image API-Guide user posted image Поиск по Разделу user posted image MSDN Library Online user posted image Google

Ваше мнение о модераторах: user posted image SCINER, user posted image B.V.
Модераторы: SCINER, B.V.
  
> Конвертация ICO в BMP
    В сети много примеров конвертации BMP в ICO, а мне надо наоборот. Т.е. мне нужно из ICO в PictureBox получить BMP в PictureBox (32бита/цвет). Прозрачность теряется, становится нулевым значением по умолчанию.
    Нашёл такой код, но в моей задаче он не работает (что не так?):

    ExpandedWrap disabled
      Public Function IconToPicture(ByVal hicon As Long) As StdPicture
          If hicon = 0 Then Exit Function
      Dim oNewPic As Picture
      Dim tPicConv As PictDesc
      Dim IGuid As GUID
          
          With tPicConv
          .cbSizeofStruct = Len(tPicConv)
          .PicType = vbPicTypeIcon
          .hImage = hicon
          End With
          
          With IGuid
          .Data1 = &H7BF80980
          .Data2 = &HBF32
          .Data3 = &H101A
          .Data4(0) = &H8B
          .Data4(1) = &HBB
          .Data4(2) = &H0
          .Data4(3) = &HAA
          .Data4(4) = &H0
          .Data4(5) = &H30
          .Data4(6) = &HC
          .Data4(7) = &HAB
          End With
          
          OleCreatePictureIndirect tPicConv, IGuid, True, oNewPic
          Set IconToPicture = oNewPic
      End Function
      PaintPicture тоже не помогает, она же должна выдавать BMP на выходе...
      0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)
      0 пользователей:


      Рейтинг@Mail.ru
      [ Script execution time: 0,0198 ]   [ 16 queries used ]   [ Generated: 26.05.24, 17:27 GMT ]