Цитата:
|
Сообщение от ЕЖ
Вот код VB.NET, в VB6 работать не будет, т.к. в в VB.NET совсем другая модель классов!
Тут на форме Form1 компонет RichTextBox1 и кнопка btnColor. При загрузке формы происходит событие Form1_Load, в котором читается вышеприведенный XML-файл и в нем ищется нода <color>. Если в ней прописана строка "false" то кнопка btnColor дизейблится, чтобы пользователь не мог ее нажать (по умолчанию может). Далее, набрав какой-то текст в RichTextBox1 и выделив его часть, пользователь нажимает кнопку btnColor. Тогда происходит событие btnColor_Click. В нем у RichTextBox1, его свойству SelectionColor (в VB6 будет SelColor), которое как раз и дает доступ к цвету выделенного текста, присваивается новый цвет - Blue. Всё. Если и так не понятно, то я умываю руки...
Код:
Imports System.Xml
Public Class Form1
Private xmlConfig As XmlDocument
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
xmlConfig = New XmlDocument()
xmlConfig.Load("config.xml")
If xmlConfig.Item("controls").Item("color").InnerText() = "false" Then btnColor.Enabled = False
End Sub
Private Sub btnColor_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnColor.Click
RichTextBox1.SelectionColor = Color.Blue
End Sub
End Class
|
Большое Спасибо. Разберусь
вобщем я прочитал, вроде понял, сейчас соображаю как дописывать дальше. Спасибо!