но при дальнейшем создании картинка портится.
- Код: Выделить всё
Set oImg(i) = me.Controls.Add("VB.Image", NPname)
...
.Picture = LoadPicture("progressbar.jpg")
Как это можно исправить?
испорченная картинка
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Сообщений: 3
• Страница 1 из 1
- ACiD
- Бывалый
-
- Сообщения: 261
- Зарегистрирован: 10.12.2005 (Сб) 2:29
- Откуда: г. Санкт - Петербург
испорченная картинка
ACiD » 20.03.2007 (Вт) 17:10
Создаю image, первый раз всё нормально,
но при дальнейшем создании картинка портится.
Как это можно исправить?
но при дальнейшем создании картинка портится.
Как это можно исправить?
- Вложения
-
пикчуры.rar- (14.84 Кб) Скачиваний: 53
- BV
- Thinker
-
- Сообщения: 3987
- Зарегистрирован: 12.09.2004 (Вс) 0:55
- Откуда: Молдавия, г. Кишинёв
BV » 21.03.2007 (Ср) 1:38
Наверно, удивительно, но приведенный ниже код подобным "недостатком" не обладает:
Покажи свой код.
- Код: Выделить всё
Option Explicit
Private Sub Foo()
Dim i As Long
Dim objImg(8) As Object
For i = 0 To 8
Set objImg(i) = Me.Controls.Add("VB.Image", "imgTest" & i)
objImg(i).Picture = LoadPicture(App.Path & "\ProgressBar.jpg")
If i = 0 Then
objImg(i).Top = 15
Else
objImg(i).Top = objImg(i - 1).Top + objImg(i - 1).Height + 15
End If
objImg(i).Left = 15
objImg(i).Visible = True
Next i
End Sub
ACiDXX писал(а):Как это можно исправить?
Покажи свой код.
const char *out = "|*0>78-,+<|"; size_t cc = char_traits<char>::length(out);
for (size_t i=0;i<cc;i++){cout<<static_cast<char>((out[i]^89));}cout<<endl;
for (size_t i=0;i<cc;i++){cout<<static_cast<char>((out[i]^89));}cout<<endl;
Сообщений: 3
• Страница 1 из 1
Кто сейчас на конференции
Сейчас этот форум просматривают: SemrushBot и гости: 97