Форум программистов, компьютерный форум, киберфорум
Pure Basic
Форум программистов и сисадминов Киберфорум > Форум программистов > Basic > Pure Basic
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.54/13: Рейтинг темы: голосов - 13, средняя оценка - 4.54
0 / 0 / 0
Регистрация: 19.10.2012
Сообщений: 29

Задний фон программы

18.08.2015, 23:33. Показов 2616. Ответов 5
Метки нет (Все метки)
Студворк — интернет-сервис помощи студентам
В свое время как то знакомый скидывал исходы кода, когда jpg картинка вшивалась в код а не подгружалась с папки при каждом запуске программы, если кто знает как сделать такое напишите пожалуйста, для упрощения, просто задний фон окна который при компиляции вошьется в программу. заранее огромное спасибо.

Добавлено через 1 минуту
Код программы если нужно)



PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156

;////////////////////////////////////////////////////////////// ИНДИКАТОР /////////////////////////////////////////
Enumeration
#Window_0
EndEnumeration
 
Procedure LineGadgetHeight(Gadget, x, y, Height,color)
Im=CreateImage(#PB_Any, 2, Height)
If Im
 If StartDrawing(ImageOutput(Im))
     CompilerIf #PB_Compiler_Version > 430
        Line(0,0, 1,Height ,color)
     CompilerElse
        Line(0,0, 0,Height ,color)
     CompilerEndIf
  StopDrawing()
  ImageGadget(Gadget,x, y, 2,Height,ImageID(Im))
 EndIf
EndIf
EndProcedure
 
 
 
OpenWindow(#Window_0, 0, 0, 350, 80, "Индикатор", #PB_Window_ScreenCentered | #PB_Window_BorderLess )
   SetWindowColor(#Window_0, $000000)
     TextGadget(300, 85, 45, 180, 15, "Подключение к сети")
     SetGadgetColor(300, #PB_Gadget_FrontColor, $055AE6)
     SetGadgetColor(300, #PB_Gadget_BackColor, $000000)
 
    For a = 1 To 150
    LineGadgetHeight(151-a, 22+a*2, 20, 20,$E3031C)
      For i=0 To 350
      WindowEvent()
      Next i
      Delay(5)
   Next
 
 TextGadget(300, 85, 45, 180, 15, "Загрузка всякой херни")
 SetGadgetColor(300, #PB_Gadget_FrontColor, $055AE6)
 SetGadgetColor(300, #PB_Gadget_BackColor, $000000)
 
   For a = 1 To 150
    LineGadgetHeight(a, 324-a*2, 20, 20,$0302FC)
      For i=0 To 350
      WindowEvent()
      Next i
      Delay(10)
   Next
 
 TextGadget(300, 85, 45, 180, 15, "херня загружена")
 SetGadgetColor(300, #PB_Gadget_FrontColor, $055AE6)
 SetGadgetColor(300, #PB_Gadget_BackColor, $000000)
   For a = 1 To 150
    LineGadgetHeight(151-a, 22+a*2, 20, 20,$000000)
      For i=0 To 350
      WindowEvent()
      Next i
      Delay(5)
   Next
 
 TextGadget(300, 115, 35, 180, 25, " GOOD!!!!")
 SetGadgetColor(300, #PB_Gadget_FrontColor, $055AE6)
 SetGadgetColor(300, #PB_Gadget_BackColor, $000000)
 SetGadgetFont(300, LoadFont(301, "Microsoft Sans Serif", 14, 272))
    Delay(2000)
;////////////////////////////////////////////////////////////// ОКОНЧАНИЕ ИНДИКАТОРА ////////////////////////////////////
 
 
;////////////////////////////////////////////////////////////// открытие начального окна ///////////////////
OpenWindow(0, 100, 200, 400, 300, "исталятор епта") 
ButtonGadget(1, 10, 10, 100, 25, "SA 530") 
ButtonGadget(2, 10, 40, 100, 25, "DB2") 
ButtonGadget(3, 10, 70, 100, 25, "VIPnet Server") 
ButtonGadget(4, 10, 100, 100, 25, "VIPnet Service") 
ButtonGadget(5, 10, 130, 100, 25, "Office") 
ButtonGadget(9, 150, 130, 100, 25, "КРЯК")    ;////////////////////////////////////////////////////////////// ОФФИС КРЯК //////////////////
ButtonGadget(6, 10, 160, 100, 25, "DOSprn") 
ButtonGadget(10, 150, 160, 100, 25, "КРЯК")    ;////////////////////////////////////////////////////////////// КРЯК ДЛЯ ПРИНТА //////////////////
ButtonGadget(7, 10, 190, 100, 25, "TotalCMD")
ButtonGadget(8, 10, 220, 100, 25, "КОНФИГИ")
 
 
;////////////////////////////////////////////////////////////// цикл кнопок ///////////////////////////
 
Repeat 
 Event = WaitWindowEvent() 
 EventGadgetID = EventGadget() 
;////////////////////////////////////////////////////////////// кнопка 1 //////////////////////
 If Event = #PB_Event_Gadget 
 If EventGadgetID = 1 
 RunProgram("\soft\sa530\setup.exe") 
 EndIf 
 EndIf 
;////////////////////////////////////////////////////////////// кнопка 2 //////////////////
 If Event = #PB_Event_Gadget 
 If EventGadgetID = 2
 RunProgram("\soft\db2\setup.exe") 
 EndIf 
 EndIf 
 ;////////////////////////////////////////////////////////////// кнопка 3 //////////////////
 If Event = #PB_Event_Gadget 
 If EventGadgetID = 3
 RunProgram("\soft\VIPserver\setup.msi") 
 EndIf 
 EndIf 
 ;////////////////////////////////////////////////////////////// кнопка 4 //////////////////
 If Event = #PB_Event_Gadget 
 If EventGadgetID = 4
 RunProgram("\soft\VIPservice\setup.exe") 
 EndIf 
 EndIf 
 ;////////////////////////////////////////////////////////////// кнопка 5 //////////////////
 If Event = #PB_Event_Gadget 
 If EventGadgetID = 5
 RunProgram("\soft\Office\setup.exe") 
 EndIf 
 EndIf 
 ;////////////////////////////////////////////////////////////// кнопка 6 //////////////////
 If Event = #PB_Event_Gadget 
 If EventGadgetID = 6
 RunProgram("\soft\dos\setup.exe") 
 EndIf 
 EndIf 
  ;////////////////////////////////////////////////////////////// кнопка 7 //////////////////
 If Event = #PB_Event_Gadget 
 If EventGadgetID = 7
 RunProgram("\soft\total\Totalcmd.exe") 
 EndIf 
 EndIf 
   ;////////////////////////////////////////////////////////////// кнопка 8 //////////////////
 If Event = #PB_Event_Gadget 
 If EventGadgetID = 8
 RunProgram("\soft\Config\") 
 EndIf 
 EndIf 
 
 
    ;////////////////////////////////////////////////////////////// Кряк для оффиса //////////////////
 
 
 If Event=#PB_Event_Gadget
 If EventGadgetID = 9
 MessageRequester("Ключик для Office 2003", "GWH28-DGCMP-P6RC4-6J4MT-3HFDY"+Str(B), 0)
 EndIf
 EndIf
 
   ;////////////////////////////////////////////////////////////// кряк для доспринта //////////////////
 If Event = #PB_Event_Gadget 
 If EventGadgetID = 10
 RunProgram("\soft\dos\Crack\setup.exe") 
 EndIf 
 EndIf 
 
 
 
 
Until Event = #PB_Event_CloseWindow
0
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
 18.08.2015, 23:33
Ответы с готовыми решениями:

Задний фон программы, не картинка
Здравствуйте, интересует такой вопрос, как поставить на задний фон программы, GIF или Video?(и можно ли это вообще сделать?)

Задний фон
Добрый день. Есть проблемка, куча форм и по кнопкам перехожу с помощью кода: Form1.ActiveForm.Hide(); ...

Задний фон
Скажите как сделать что бы задник страницы не копировался при прокрутке страницы в низ а был как бы на месте

5
 Аватар для Pro_grammer
6807 / 2839 / 527
Регистрация: 24.04.2011
Сообщений: 5,308
Записей в блоге: 10
19.08.2015, 07:23
Лови:
PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165

;////////////////////////////////////////////////////////////// ИНДИКАТОР /////////////////////////////////////////
Enumeration
#Window_0
EndEnumeration
 
Procedure LineGadgetHeight(Gadget, x, y, Height,color)
Im=CreateImage(#PB_Any, 2, Height)
If Im
 If StartDrawing(ImageOutput(Im))
     CompilerIf #PB_Compiler_Version > 430
        Line(0,0, 1,Height ,color)
     CompilerElse
        Line(0,0, 0,Height ,color)
     CompilerEndIf
  StopDrawing()
  ImageGadget(Gadget,x, y, 2,Height,ImageID(Im))
 EndIf
EndIf
EndProcedure
 
 
 
OpenWindow(#Window_0, 0, 0, 350, 80, "Индикатор", #PB_Window_ScreenCentered | #PB_Window_BorderLess )
   SetWindowColor(#Window_0, $000000)
     TextGadget(300, 85, 45, 180, 15, "Подключение к сети")
     SetGadgetColor(300, #PB_Gadget_FrontColor, $055AE6)
     SetGadgetColor(300, #PB_Gadget_BackColor, $000000)
 
    For a = 1 To 150
    LineGadgetHeight(151-a, 22+a*2, 20, 20,$E3031C)
      For i=0 To 350
      WindowEvent()
      Next i
      Delay(5)
   Next
 
 TextGadget(300, 85, 45, 180, 15, "Загрузка всякой херни")
 SetGadgetColor(300, #PB_Gadget_FrontColor, $055AE6)
 SetGadgetColor(300, #PB_Gadget_BackColor, $000000)
 
   For a = 1 To 150
    LineGadgetHeight(a, 324-a*2, 20, 20,$0302FC)
      For i=0 To 350
      WindowEvent()
      Next i
      Delay(10)
   Next
 
 TextGadget(300, 85, 45, 180, 15, "херня загружена")
 SetGadgetColor(300, #PB_Gadget_FrontColor, $055AE6)
 SetGadgetColor(300, #PB_Gadget_BackColor, $000000)
   For a = 1 To 150
    LineGadgetHeight(151-a, 22+a*2, 20, 20,$000000)
      For i=0 To 350
      WindowEvent()
      Next i
      Delay(5)
   Next
 
 TextGadget(300, 115, 35, 180, 25, " GOOD!!!!")
 SetGadgetColor(300, #PB_Gadget_FrontColor, $055AE6)
 SetGadgetColor(300, #PB_Gadget_BackColor, $000000)
 SetGadgetFont(300, LoadFont(301, "Microsoft Sans Serif", 14, 272))
    Delay(2000)
    ;////////////////////////////////////////////////////////////// ОКОНЧАНИЕ ИНДИКАТОРА ////////////////////////////////////
    
 ;{ Included Images
DataSection
  Image_Image_0:
  IncludeBinary "C:\kartina4.jpg" ; Твоя картинка!!!
 
EndDataSection
;}
UseJPEGImageDecoder()
 
;////////////////////////////////////////////////////////////// открытие начального окна ///////////////////
OpenWindow(0, 100, 200, 400, 300, "исталятор епта") 
ImageGadget(0, 0, 0, 400, 300, CatchImage(0, ?Image_Image_0)):DisableGadget(0,1)
ButtonGadget(1, 10, 10, 100, 25, "SA 530") 
ButtonGadget(2, 10, 40, 100, 25, "DB2") 
ButtonGadget(3, 10, 70, 100, 25, "VIPnet Server") 
ButtonGadget(4, 10, 100, 100, 25, "VIPnet Service") 
ButtonGadget(5, 10, 130, 100, 25, "Office") 
ButtonGadget(9, 150, 130, 100, 25, "КРЯК")    ;////////////////////////////////////////////////////////////// ОФФИС КРЯК //////////////////
ButtonGadget(6, 10, 160, 100, 25, "DOSprn") 
ButtonGadget(10, 150, 160, 100, 25, "КРЯК")    ;////////////////////////////////////////////////////////////// КРЯК ДЛЯ ПРИНТА //////////////////
ButtonGadget(7, 10, 190, 100, 25, "TotalCMD")
ButtonGadget(8, 10, 220, 100, 25, "КОНФИГИ")
 
 
;////////////////////////////////////////////////////////////// цикл кнопок ///////////////////////////
 
Repeat 
 Event = WaitWindowEvent() 
 EventGadgetID = EventGadget() 
;////////////////////////////////////////////////////////////// кнопка 1 //////////////////////
 If Event = #PB_Event_Gadget 
 If EventGadgetID = 1 
 RunProgram("\soft\sa530\setup.exe") 
 EndIf 
 EndIf 
;////////////////////////////////////////////////////////////// кнопка 2 //////////////////
 If Event = #PB_Event_Gadget 
 If EventGadgetID = 2
 RunProgram("\soft\db2\setup.exe") 
 EndIf 
 EndIf 
 ;////////////////////////////////////////////////////////////// кнопка 3 //////////////////
 If Event = #PB_Event_Gadget 
 If EventGadgetID = 3
 RunProgram("\soft\VIPserver\setup.msi") 
 EndIf 
 EndIf 
 ;////////////////////////////////////////////////////////////// кнопка 4 //////////////////
 If Event = #PB_Event_Gadget 
 If EventGadgetID = 4
 RunProgram("\soft\VIPservice\setup.exe") 
 EndIf 
 EndIf 
 ;////////////////////////////////////////////////////////////// кнопка 5 //////////////////
 If Event = #PB_Event_Gadget 
 If EventGadgetID = 5
 RunProgram("\soft\Office\setup.exe") 
 EndIf 
 EndIf 
 ;////////////////////////////////////////////////////////////// кнопка 6 //////////////////
 If Event = #PB_Event_Gadget 
 If EventGadgetID = 6
 RunProgram("\soft\dos\setup.exe") 
 EndIf 
 EndIf 
  ;////////////////////////////////////////////////////////////// кнопка 7 //////////////////
 If Event = #PB_Event_Gadget 
 If EventGadgetID = 7
 RunProgram("\soft\total\Totalcmd.exe") 
 EndIf 
 EndIf 
   ;////////////////////////////////////////////////////////////// кнопка 8 //////////////////
 If Event = #PB_Event_Gadget 
 If EventGadgetID = 8
 RunProgram("\soft\Config\") 
 EndIf 
 EndIf 
 
 
    ;////////////////////////////////////////////////////////////// Кряк для оффиса //////////////////
 
 
 If Event=#PB_Event_Gadget
 If EventGadgetID = 9
 MessageRequester("Ключик для Office 2003", "GWH28-DGCMP-P6RC4-6J4MT-3HFDY"+Str(B), 0)
 EndIf
 EndIf
 
   ;////////////////////////////////////////////////////////////// кряк для доспринта //////////////////
 If Event = #PB_Event_Gadget 
 If EventGadgetID = 10
 RunProgram("\soft\dos\Crack\setup.exe") 
 EndIf 
 EndIf 
 
 
 
 
Until Event = #PB_Event_CloseWindow
0
0 / 0 / 0
Регистрация: 19.10.2012
Сообщений: 29
19.08.2015, 23:46  [ТС]
Pro_grammer, Спасибо огромное, пытался так же сделать картинку на кнопку но не получилось, можешь помочь с этим?
0
Эксперт JSЭксперт HTML/CSS
2436 / 1115 / 312
Регистрация: 23.06.2011
Сообщений: 3,531
20.08.2015, 06:37
Цитата Сообщение от Итачи Посмотреть сообщение
пытался так же сделать картинку на кнопку но не получилось
Есть же гаджет, кнопка с картинкой, картинка должна быть немного меньше размеров задаваемых кнопке, иначе краёв картинки не увидишь.
приер из справочника
PureBasic
1
2
3
4
5
6
7

  If OpenWindow(0, 0, 0, 120, 100, "ButtonImage", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
    If LoadImage(0, "map.bmp")    ; укажите путь к вашему изображению
      ButtonImageGadget(0, 10, 10, 100, 83, ImageID(0))
    EndIf
    Repeat
    Until WaitWindowEvent() = #PB_Event_CloseWindow
  EndIf
А где в форме ответа кнопочка КОД РВ? не вижу я её.
0
 Аватар для Pro_grammer
6807 / 2839 / 527
Регистрация: 24.04.2011
Сообщений: 5,308
Записей в блоге: 10
20.08.2015, 06:46
Цитата Сообщение от Итачи Посмотреть сообщение
сделать картинку на кнопку
Надо вместо ButtonGadget использовать ButtonImageGadget
Надписи типа "SA 530" придется делать заранее, в графическом редакторе прямо на картинке, у ButtonImageGadget нет поля Text,
Остальное всё так же:
PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
13
14

 ;{ Included Images
DataSection
  Image_Image_0:
  IncludeBinary "C:\kartina4.jpg" ; Твоя картинка!!!
 Image_ButtonImage_1:
  IncludeBinary "C:\kartina1.jpg"
  Image_ButtonImage_2:
  IncludeBinary "C:\kartina2.jpg"
  ...
EndDataSection
....
ButtonImageGadget(1, 10, 10, 100, 25, CatchImage(1, ?Image_ButtonImage_1))
ButtonImageGadget(2, 10, 40, 100, 25, CatchImage(2, ?Image_ButtonImage_2))
....
0
Эксперт по электронике
6855 / 3279 / 339
Регистрация: 28.10.2011
Сообщений: 12,816
Записей в блоге: 7
20.08.2015, 09:46
Цитата Сообщение от Pro_grammer Посмотреть сообщение
у ButtonImageGadget нет поля Text,
Но текст вывести можно.
PureBasic
1
2
3
4
5
6
7
8
9
10
11
12

OpenWindow(0, 0, 0, 200, 200, "", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
If CreateImage(0, 20, 20) And StartDrawing(ImageOutput(0))
  Box(0, 0, 20, 20, RGB(Random(255), Random(255), Random(255)))
  StopDrawing() 
EndIf
 
ButtonImageGadget(0, 10, 10, 100, 83, ImageID(0), #PB_Button_Left)
SetGadgetText(0, "1234")
 
Repeat
  Event = WaitWindowEvent()
Until Event = #PB_Event_CloseWindow
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
 20.08.2015, 09:46
Помогаю со студенческими работами здесь

Полупрозрачный задний фон
С помощью чего это модно сделать максимально рационально? Можно ли использовать filter ?

Задний фон Label
Есть текст в лэйбле. Установил на форму картинку через image. Разместил label на картинке, компилирую, картинка есть а лэйбел пропадает....

Простейший Задний Фон
Всем привет! Помогите плиз сделать задний фон как тут Но только в поле регистрации пользователей!!!! а то вот так получается

Задний фон меню
Тут такое дело, блок меню находится в центральном блоке, его ширина 960px. но фон меню мне нужен на весь браузер то есть не 100% внутри...

Задний фон кнопки
Как изменить задний фон кнопки: <input type="submit" value="Удалить" width="40" height="40" style="s" <?=$flag2 ? 'disabled' :...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Новые блоги и статьи
My Business CRM
MaGz GoLd 16.04.2026
Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .
Знаешь почему 90% людей редко бывают счастливыми?
kumehtar 14.04.2026
Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.
Фиксация колонок в отчете СКД
Maks 14.04.2026
Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .
Настройки VS Code
Loafer 13.04.2026
{ "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .
Оптимизация кода на разграничение прав доступа к элементам формы
Maks 13.04.2026
Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .
Контроль заполнения и очистка дат в зависимости от значения перечислений
Maks 12.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .
Архитектура слоя интернета для сервера-слоя.
Hrethgir 11.04.2026
В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .
Подстановка значения реквизита справочника в табличную часть документа
Maks 10.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача №1: при указании работ (справочник РаботыПоРемонтуСпецтехники),. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Условия использования - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru