Форум программистов, компьютерный форум, киберфорум
Visual Basic
Форум программистов и сисадминов Киберфорум > Форум программистов > Basic > Visual Basic
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
4 из 4 « 123 4
 
Рейтинг 4.93/30: Рейтинг темы: голосов - 30, средняя оценка - 4.93
7 / 7 / 0
Регистрация: 27.01.2014
Сообщений: 28

Форма становится прозрачной, а кнопка - нет

17.07.2014, 09:23. Показов 6605. Ответов 67
Метки нет (Все метки)
Студворк — интернет-сервис помощи студентам
Создаем проект Visual Basic, на форму кидаем кнопку и пишем код в эту форму:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12

Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long 
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long 
Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long 
 
Private Sub Form_Load() 
    Dim Ret As Long 
    Ret = GetWindowLong(hwnd, GWL_EXSTYLE) 
    Ret = Ret Or &H80000 
    SetWindowLong hwnd, (-20), Ret 
     
    SetLayeredWindowAttributes hwnd, 0, 128, 2 
End Sub
И наша форма становится прозразна на 50 процентов. Теперь немножко переделываем код для кнопки:
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13

Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long 
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long 
Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long 
 
Private Sub Form_Load() 
    Dim Ret As Long 
    Ret = GetWindowLong(Command1.hwnd, GWL_EXSTYLE) 
    Ret = Ret Or &H80000 
    SetWindowLong Command1.hwnd, (-20), Ret 
   
    SetLayeredWindowAttributes Command1.hwnd, 0, 128, 2 Or 1 
     
End Sub
... и кнопка почему то не становится на 50% прозрачнее Где ошибка?
0
Лучшие ответы (1)
Сообщение: #6441097
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
 17.07.2014, 09:23
Ответы с готовыми решениями:

Во общем ситуация такая. Есть форма на форме кнопка. Кнопка запускает метод. После запуска метода форма умирае
Во общем ситуация такая. Есть форма на форме кнопка. Кнопка запускает метод. После запуска метода форма умирает. Как решить? В голове...

Как сделать так что бы кнопка с картинкой была прозрачной?
Я зная что можно сделать кнопке BackColor = transparent но тогда оно отображает фон самой формы а мне надо чтобы оно отображало фон...

Кнопка становится не кликабельной
Пробую добавить кнопку на RichTextBox и скрыть ее после того как курсор покинул область RichTextBox. И наоборот, когда курсор в области...

67
 Аватар для Антихакер32
1201 / 473 / 46
Регистрация: 06.01.2014
Сообщений: 1,797
Записей в блоге: 19
18.07.2014, 22:49
Студворк — интернет-сервис помощи студентам
Вобщем, я пошел еще дальше,
сделал полупрозрачную кнопку отдельным компонентом
с настраиваемой альфой, и дисплейным именем TransButt

Форма .Frm
Visual Basic
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

Option Explicit
'
'Демонстрация работы компонента TransButt
'© Антихакер32™
'
Dim o As Object
 
Private Sub Form_Load()
    Hook Me
End Sub
 
Private Sub Form_Terminate()
    UnHook
End Sub
 
Public Sub WMove()
    For Each o In Me
        If TypeName(o) = "TransButt" Then Call o.Sinhronize
    Next
End Sub
 
Public Sub WActivate()
    For Each o In Me
        If TypeName(o) = "TransButt" Then Call o.Sinhronize
    Next
End Sub


Модуль .Bas
Visual Basic
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

Option Explicit
'
'Модуль для сабкласинга
'
Public Const GWL_WNDPROC = -4
' Сообщения windows
'
Public Const WM_ACTIVATE = &H6
Public Const WM_CLOSE = &H10
Public Const WM_MOVE = &H3
Public Const WM_SIZE = &H5
 
Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Public Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hWnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
'
Dim SWL As Long
Dim mhWnd As Long
Dim mParent As Object
 
 
Function Hook(Parent As Object) As Long
    On Error GoTo errr
    Set mParent = Parent
    mhWnd = mParent.hWnd
    SWL = SetWindowLong(mhWnd, GWL_WNDPROC, AddressOf WindowProc)
errr:
End Function
 
Sub UnHook()
    Call CallWindowProc(SWL, mhWnd, WM_CLOSE, 0, 0)
End Sub
 
Public Function WindowProc(ByVal hWnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
   Dim o As Object
   On Error GoTo errr
   Select Case Msg
   Case WM_SIZE
        Call mParent.WSize
        Exit Function
   Case WM_ACTIVATE
        Call mParent.WActivate
        Exit Function
    Case WM_MOVE
        Call mParent.WMove
        Exit Function
   End Select
   WindowProc = CallWindowProc(SWL, hWnd, Msg, wParam, lParam)
errr:
End Function


Модуль компонента .Ctl
Visual Basic
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

Option Explicit
'
'Компонент "Полупрозрачная кнопка"
'© Антихакер32™
'
Const KeyTransparent = &HC0E0FF 'Ключ прозрачности
Private Type RECT
    Left As Long
    Top As Long
    Right As Long
    Bottom As Long
End Type
Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
Private Declare Sub 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)
Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hWnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long
Private Declare Function GetWindowRect Lib "user32" (ByVal hWnd As Long, lpRect As RECT) As Long
Private Declare Function GetForegroundWindow Lib "user32" () As Long
Const HWND_TOP = 0
Const HWND_TOPMOST = -1
Const HWND_NOTOPMOST = -2
Const LWA_COLORKEY = &H1
Const SWP_NOSIZE = &H1
Const SWP_NOMOVE = &H2
Const GWL_EXSTYLE = (-20)
Const WS_EX_LAYERED As Long = &H80000
Dim mRECT As RECT, o As Object
Dim WithEvents cmm As CommandButton
'Default Property Values:
Const m_def_Caption = ""
Const m_def_Alpha = 200
'Property Variables:
Dim m_Alpha As Long
 
Private Sub UserControl_Initialize()
    Set cmm = Controls.Add("vb.CommandButton", "cmm")
End Sub
 
Private Sub UserControl_Resize()
    On Error Resume Next
    cmm.Move 0, 0, ScaleWidth, ScaleHeight
End Sub
 
Public Sub Sinhronize()
    On Error Resume Next
    GetWindowRect hWnd, mRECT
    If GetForegroundWindow = Parent.hWnd Then SetParent cmm.hWnd, 0 _
    Else SetParent cmm.hWnd, Parent.hWnd
    With mRECT
        SetWindowPos cmm.hWnd, HWND_TOP, .Left, .Top, .Right - .Left, .Bottom - .Top, 0
    End With
End Sub
 
Private Sub UserControl_Show()
    cmm.Visible = 1
    If Ambient.UserMode Then
        '
        'Если запущен режим выполнения, то устанавливаем прозрачность
        '
        BackColor = KeyTransparent
        SetParent cmm.hWnd, 0
        SetWindowLong cmm.hWnd, GWL_EXSTYLE, GetWindowLong(hWnd, GWL_EXSTYLE) Or WS_EX_LAYERED
        SetLayeredWindowAttributes cmm.hWnd, 0, m_Alpha, 2
        SetWindowLong Parent.hWnd, GWL_EXSTYLE, GetWindowLong(Parent.hWnd, GWL_EXSTYLE) Or WS_EX_LAYERED
        SetLayeredWindowAttributes Parent.hWnd, KeyTransparent, 0, LWA_COLORKEY
    End If
End Sub
 
'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
'MemberInfo=8,0,0,0
Public Property Get Alpha() As Long
    Alpha = m_Alpha
End Property
 
Public Property Let Alpha(ByVal New_Alpha As Long)
    m_Alpha = New_Alpha
    PropertyChanged "Alpha"
End Property
 
'Initialize Properties for User Control
Private Sub UserControl_InitProperties()
    m_Alpha = m_def_Alpha
    cmm.Caption = Ambient.DisplayName
End Sub
 
'Load property values from storage
Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
 
    m_Alpha = PropBag.ReadProperty("Alpha", m_def_Alpha)
    cmm.Caption = PropBag.ReadProperty("Caption", m_def_Caption)
End Sub
 
'Write property values to storage
Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
    Call PropBag.WriteProperty("Alpha", m_Alpha, m_def_Alpha)
    Call PropBag.WriteProperty("Caption", cmm.Caption, m_def_Caption)
End Sub
 
'WARNING! DO NOT REMOVE OR MODIFY THE FOLLOWING COMMENTED LINES!
'MemberInfo=13,0,0,
Public Property Get Caption() As String
    Caption = cmm.Caption
End Property
 
Public Property Let Caption(ByVal New_Caption As String)
    cmm.Caption = New_Caption
    PropertyChanged "Caption"
End Property


картинка результата:






прямая ссылка на закачку архива с исходниками

Добавлено через 23 минуты
причем, уже не приходится использовать дополнительные контролы
как PictureBox, дырку я проделал цветом самого компонента
0
Модератор
10048 / 3894 / 883
Регистрация: 22.02.2013
Сообщений: 5,847
Записей в блоге: 79
19.07.2014, 01:17
Лучший ответ Сообщение было отмечено The trick как решение

Решение

Имитация прозрачности, используя перехват рисования. Двойная буферизация (без мерцаний). Поддерживается перекрытие с непрозрачными контролами.

Visual Basic
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

Option Explicit
 
Private Type RECT
    iLeft As Long
    iTop As Long
    iRight As Long
    iBottom As Long
End Type
Private Type PAINTSTRUCT
    hdc As Long
    fErase As Long
    rcPaint As RECT
    fRestore As Long
    fIncUpdate As Long
    rgbReserved(31) As Byte
End Type
 
Private Declare Function InitCommonControlsEx Lib "comctl32" (icc As Any) As Long
Private Declare Function CreateCompatibleBitmap Lib "gdi32" (ByVal hdc As Long, ByVal nWidth As Long, ByVal nHeight As Long) As Long
Private Declare Function CreateCompatibleDC Lib "gdi32" (ByVal hdc As Long) As Long
Private Declare Function DeleteDC Lib "gdi32" (ByVal hdc As Long) As Long
Private Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long
Private Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, ByVal hObject As Long) As Long
Private Declare Function AlphaBlend Lib "msimg32" (ByVal hdcDest As Long, ByVal xDest As Long, ByVal yDest As Long, ByVal WidthDest As Long, ByVal HeightDest As Long, ByVal hdcSrc As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal WidthSrc As Long, ByVal HeightSrc As Long, ByVal Blendfunc As Long) As Long
Private Declare Function BeginPaint Lib "user32" (ByVal hwnd As Long, lpPaint As PAINTSTRUCT) As Long
Private Declare Function EndPaint Lib "user32" (ByVal hwnd As Long, lpPaint As PAINTSTRUCT) As Long
Private Declare Function RedrawWindow Lib "user32" (ByVal hwnd As Long, lprcUpdate As Any, ByVal hrgnUpdate As Long, ByVal fuRedraw As Long) As Long
Private Declare Function GetParent Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function MapWindowPoints Lib "user32" (ByVal hwndFrom As Long, ByVal hwndTo As Long, lppt As Any, ByVal cPoints As Long) As Long
Private Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long
Private Declare Function GetUpdateRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT, ByVal bErase As Long) As Long
Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageW" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function SetViewportOrgEx Lib "gdi32" (ByVal hdc As Long, ByVal nX As Long, ByVal nY As Long, lpPoint As Any) As Long
Private Declare Function SelectClipRgn Lib "gdi32" (ByVal hdc As Long, ByVal hRgn As Long) As Long
 
Private Const GW_HWNDNEXT       As Long = 2
Private Const WM_PAINT          As Long = &HF
Private Const WM_ERASEBKGND     As Long = &H14
Private Const RDW_UPDATENOW     As Long = &H100
Private Const RDW_INVALIDATE    As Long = &H1
 
Dim WithEvents sclButton    As clsTrickSubclass
 
Private Sub Form_Initialize()
    InitCommonControlsEx 3435973.8623@
End Sub
 
Private Sub Form_Load()
    Dim p As Long
    
    Set sclButton = New clsTrickSubclass
    sclButton.HookClass cmdTest(0).hwnd
    sclButton.ResumeSubclass
 
    For p = 1 To 6
        Load cmdTest(p)
        cmdTest(p).Move 5, p * 50 + 5, ScaleWidth - 10, 45
        cmdTest(p).Visible = True
        cmdTest(p).ZOrder
        cmdTest(p).Caption = Choose(p, "Transparent", _
                                       "buttons", _
                                       "by The trick", _
                                       "use TrickSubclass", _
                                       "fake transparent", _
                                       "double buffering")
    Next
    
End Sub
 
Private Sub hsbAlpha_Change()
    Dim i As Long
    For i = 0 To cmdTest.UBound: cmdTest(i).Refresh: Next
End Sub
Private Sub hsbAlpha_Scroll()
    hsbAlpha_Change
End Sub
 
Private Sub sclButton_WndProc(ByVal hwnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long, Ret As Long, DefCall As Boolean)
    Select Case Msg
    Case WM_ERASEBKGND: OnErase hwnd, wParam, lParam
    Case WM_PAINT: OnPaint hwnd
    Case Else: DefCall = True
    End Select
End Sub
 
Private Sub OnErase(ByVal hwnd As Long, ByVal hdc As Long, ByVal ID As Long)
    Dim rc As RECT, map As RECT, nWnd As Long
    
    If ID <> hwnd Then Exit Sub
    
    nWnd = GetParent(hwnd)
    GetUpdateRect hwnd, rc, 0
    map = rc: MapWindowPoints hwnd, nWnd, map, 2
    SetViewportOrgEx hdc, -map.iLeft, -map.iTop, ByVal 0&
    SendMessage nWnd, WM_PAINT, hdc, ByVal 0&
    nWnd = GetWindow(hwnd, GW_HWNDNEXT)
    
    Do While nWnd
        map = rc: MapWindowPoints hwnd, nWnd, map, 2
        SetViewportOrgEx hdc, -map.iLeft, -map.iTop, ByVal 0&
        SendMessage nWnd, WM_PAINT, hdc, ByVal 0&
        SelectClipRgn hdc, 0
        nWnd = GetWindow(nWnd, GW_HWNDNEXT)
    Loop
 
    SetViewportOrgEx hdc, 0, 0, ByVal 0&
    
End Sub
Private Sub OnPaint(ByVal hwnd As Long)
    Dim sDc As Long, sBmp As Long, soBmp As Long, _
        dDc As Long, dBmp As Long, doBmp As Long, _
        rc As RECT, ps As PAINTSTRUCT
    
    GetUpdateRect hwnd, rc, 0
    sDc = CreateCompatibleDC(Me.hdc):   dDc = CreateCompatibleDC(Me.hdc)
    sBmp = CreateCompatibleBitmap(Me.hdc, rc.iRight, rc.iBottom)
    dBmp = CreateCompatibleBitmap(Me.hdc, rc.iRight, rc.iBottom)
    soBmp = SelectObject(sDc, sBmp):    doBmp = SelectObject(dDc, dBmp)
    sclButton.CallDef hwnd, WM_PAINT, sDc, 0, False
    BeginPaint hwnd, ps
    SendMessage hwnd, WM_ERASEBKGND, dDc, ByVal hwnd
    AlphaBlend dDc, rc.iLeft, rc.iTop, rc.iRight - rc.iLeft, rc.iBottom - rc.iTop, _
               sDc, rc.iLeft, rc.iTop, rc.iRight - rc.iLeft, rc.iBottom - rc.iTop, CLng(hsbAlpha.Value) * &H10000
    BitBlt ps.hdc, rc.iLeft, rc.iTop, rc.iRight - rc.iLeft, rc.iBottom - rc.iTop, dDc, rc.iLeft, rc.iTop, vbSrcCopy
    EndPaint hwnd, ps
    SelectObject sDc, soBmp:    SelectObject dDc, doBmp
    DeleteObject sBmp:          DeleteObject dBmp
    DeleteDC sDc:               DeleteDC dDc
    
End Sub
Работает как на XP:

Так и на Win7:

Корректно работает только с манифестом, для работы без манифеста дополнительно нужно обработать сообщения мыши. В архиве 2 примера. Используется мой модуль для сабклассинга.
Вложения
Тип файла: rar TransparentControl.rar (418.2 Кб, 104 просмотров)
1
 Аватар для Антихакер32
1201 / 473 / 46
Регистрация: 06.01.2014
Сообщений: 1,797
Записей в блоге: 19
19.07.2014, 06:38
Цитата Сообщение от The trick Посмотреть сообщение
TransparentControl.rar (418.0 Кб, 1 просмотров)
Вердикт, такой:
Все не работает !, объяснять небуду, и не хочу
ни скомпилированные приложения ни чтото еще
все что есть в архиве не работает и не запускается, я не выдумываю
0
 Аватар для Pro_grammer
6807 / 2839 / 527
Регистрация: 24.04.2011
Сообщений: 5,308
Записей в блоге: 10
19.07.2014, 07:51
Цитата Сообщение от Антихакер32 Посмотреть сообщение
все что есть в архиве не работает и не запускается
Ну да, надо чуть внимательнее прочитать сообщение и к проекту это подключить:
Цитата Сообщение от The trick Посмотреть сообщение
Используется мой модуль для сабклассинга.
И исходник заработает волшебным образом
Скомпилированные приложения и у меня не работают, может из за XP x86, ошибок не выдают.
1
 Аватар для Антихакер32
1201 / 473 / 46
Регистрация: 06.01.2014
Сообщений: 1,797
Записей в блоге: 19
19.07.2014, 08:04
The Trick, зато рекламу Вашему проекту обеспечили
что касается меня, то вы должны быть благодарны что остались еще
последние энтузиасты, которые тестируют ваши приложения,
почему-то которые никак себя не проявляют

и что бы это значило
0
 Аватар для Антихакер32
1201 / 473 / 46
Регистрация: 06.01.2014
Сообщений: 1,797
Записей в блоге: 19
19.07.2014, 10:21
Исправил проект The Trick'а, наверное чтото такое должно было выйти
Вложения
Тип файла: rar Исправленно !.rar (138.0 Кб, 17 просмотров)
0
Модератор
10048 / 3894 / 883
Регистрация: 22.02.2013
Сообщений: 5,847
Записей в блоге: 79
19.07.2014, 11:08
Цитата Сообщение от Антихакер32 Посмотреть сообщение
The Trick, зато рекламу Вашему проекту обеспечили
что касается меня, то вы должны быть благодарны что остались еще
последние энтузиасты, которые тестируют ваши приложения,
почему-то которые никак себя не проявляют
и что бы это значило
Чего-чего? Все мои программы работают. Все баги, о которых мне сообщают я исправляю, в отличии от тебя, и делаю это с большим удовольствием.
Цитата Сообщение от Антихакер32 Посмотреть сообщение
Исправил проект The Trick'а, наверное чтото такое должно было выйти
Что ты исправил? Добавил модуль? Так я и так дал на него ссылку, не нужно так делать, т.к. в модуле могут быть баги и я их исправляю и обновляю, поэтому пользователь должен брать новую версию.
А с работой в скомпилированном файле я сейчас разберусь. Также я написал сразу:
Цитата Сообщение от The trick Посмотреть сообщение
Тестировалось на Win7x64. Корректно работает только с манифестом
Твой код страдает не меньшими багами, но ты его не исправляешь.
0
Модератор
10048 / 3894 / 883
Регистрация: 22.02.2013
Сообщений: 5,847
Записей в блоге: 79
20.07.2014, 11:25
Исправил баг при работе в WinXP (перезалил туда же). Большое спасибо Dragokas'у и Pro_grammer'у. Поставил себе виртуалку, теперь буду тестировать на 2-х системах.
Антихакер32, а как у тебя дела с решением твоих багов?
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
 20.07.2014, 11:25
Помогаю со студенческими работами здесь

Почему кнопка НЕ СТАНОВИТСЯ НЕВИДИМОЙ?
Среда Visual Basic STUDIO’2010 Professional Почему кнопка НЕ СТАНОВИТСЯ НЕВИДИМОЙ? Form1.Button12.Visible = False строка кода...

Кнопка сохранения текста не становится активной
Здравствуйте помогите разобраться..Есть текстовый редактор . на нем кнопки &quot;загрузить &quot;&quot;сохранить&quot;...

кнопка становится активной после некоторых действий
Собственно суть такова: Форма загружается с деактивированными кнопками (свойство enabled = false) По мере заполнения текстбоксов и прочих...

При выделеном тексте кнопка становится активной
помогите как задать условие если выделяеш текств в RichTextBox кнопка становится активной

Форма не становится поверх остальных окон
Скажите пожалуйста, в чем ошибка private void поверхОкон_CheckedChanged(object sender, EventArgs e) { if...


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

Или воспользуйтесь поиском по форуму:
68
Ответ Создать тему
4 из 4 « 123 4
Новые блоги и статьи
Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android
8Observer8 26.01.2026
Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .
Установка Android SDK, NDK, JDK, CMake и т.д.
8Observer8 25.01.2026
Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .
Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf
8Observer8 25.01.2026
Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .
Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly
8Observer8 24.01.2026
Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
моя боль
iceja 24.01.2026
Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .
Модель сукцессии микоризы
anaschu 24.01.2026
Решили писать научную статью с неким РОманом
 http://iceja.net/ математические сервисы
iceja 20.01.2026
Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .
http://iceja.net/ сервер решения полиномов
iceja 18.01.2026
Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Условия использования - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru