- Код: Выделить всё
Private Sub color1_Click()
Notepad.BackColor = "vbBlue"
Notepad.ForeColor = "&H00FFFFFF&"
End Sub
Private Sub color10_Click()
Notepad.BackColor = "&H80000018&"
Notepad.ForeColor = "&H80000018&"
End Sub
Private Sub color11_Click()
Notepad.BackColor = "&H00004040&"
Notepad.ForeColor = "&H00004040&"
End Sub
Private Sub color12_Click()
Notepad.BackColor = "&H00404000&"
Notepad.ForeColor = "&H00404000&"
End Sub
Private Sub color13_Click()
Notepad.BackColor = "&H00C0C0FF&"
Notepad.ForeColor = "&H00C0C0FF&"
End Sub
Private Sub color14_Click()
Notepad.BackColor = "&H80000010&"
Notepad.ForeColor = "&H80000010&"
End Sub
Private Sub color15_Click()
Notepad.BackColor = "&H00FF80FF&"
Notepad.ForeColor = "&H00FF80FF&"
End Sub
Private Sub color16_Click()
Notepad.BackColor = "&H00FFC0C0&"
Notepad.ForeColor = "&H00FFC0C0&"
End Sub
Private Sub color17_Click()
Notepad.BackColor = "&H00404080&"
Notepad.ForeColor = "&H00404080&"
End Sub
Private Sub color18_Click()
Notepad.BackColor = "&H8000000D&"
Notepad.ForeColor = "&H8000000D&"
End Sub
Private Sub color19_Click()
Notepad.BackColor = "&H00000080&"
Notepad.ForeColor = "&H00000080&"
End Sub
Private Sub color2_Click()
Notepad.BackColor = "&H000000FF&"
Notepad.ForeColor = "&H000000FF&"
End Sub
Private Sub color20_Click()
Notepad.BackColor = "&H0080FFFF&"
Notepad.ForeColor = "&H0080FFFF&"
End Sub
Private Sub color3_Click()
Notepad.BackColor = "&H0000FFFF&"
Notepad.ForeColor = "&H0000FFFF&"
End Sub
Private Sub color4_Click()
Notepad.BackColor = "&H00FF0000&"
Notepad.ForeColor = "&H00FF0000&"
End Sub
Private Sub color5_Click()
Notepad.BackColor = "&H00008000&"
Notepad.ForeColor = "&H00008000&"
End Sub
Private Sub color6_Click()
Notepad.BackColor = "&H00FF00FF&"
Notepad.ForeColor = "&H00FF00FF&"
End Sub
Private Sub color7_Click()
Notepad.BackColor = "&H80000007&"
Notepad.ForeColor = "&H80000007&"
End Sub
Private Sub color8_Click()
Notepad.BackColor = "&H00400040&"
Notepad.ForeColor = "&H00400040&"
End Sub
Private Sub color9_Click()
Notepad.ForeColor = "&H0000FF00&"
Notepad.BackColor = "&H0000FF00&"
End Sub
P.s. - Notepad - это Form-а
И потом как жмёш Play выдаёт ошибку!
Помогите пожалуйста -Заранее спасибо!
2) Вопрос №2
В блокноте нужно сохранять фаилы )))
НУ я имею ввиду что должна быть функция "Сохранить как" и должен быть мой придуманный формат например -- *.dk
Так вот вопрос --- Каким опиратором это делается (ну я имею ввиду создаётся фаил с моим форматом в определённой дериктории)
И как зделать на фаиле моего формата ,который я например сохранил в директории system32/*.dk и мне нужно на этот фаил положить мою иконку!
помогите юзеру пожалуйста !Заранее спасибо![/u]
---
Спасибо!Жду ответа!;)
как зделать так что-бы при включении форма была прозрачной и постипенно набарала цвет и контрасность ???
НЕт-НЕТ! Просто если кто-то в этом деле профи Помогите или просто напишите где это всё юзать!
