Хостинг Портала RusFAQ.ru:
MosHoster.ru - Профессиональный хостинг на Windows 2008

РАССЫЛКИ ПОРТАЛА RUSFAQ.RU

Чемпионы рейтинга экспертов в этой рассылке

Micren Статус: Практикант Рейтинг: 102 ∙ повысить рейтинг >>

Evgenijm Статус: 3-й класс Рейтинг: 32 ∙ повысить рейтинг >>

Абельхарисов Руслан/Marked One Статус: Практикант Рейтинг: 25 ∙ повысить рейтинг >>

/ КОМПЬЮТЕРЫ И ПО / Языки программирования / .NET

Выпуск № 124
от 07.04.2009, 20:35

Вопрос № 163997: Здравствуйте эксперты! Подскажите пожалуйста, на форме есть 4 TextBox'а информация из них,(Family, name, surname, adress) при нажатии кнопки BtnShow, паявляется в RichTextBox, нужно устроить проверку трём из них, если допустим фамилия или...

Вопрос № 163.997

Здравствуйте эксперты! Подскажите пожалуйста, на форме есть 4 TextBox'а информация из них,(Family, name, surname, adress) при нажатии кнопки BtnShow, паявляется в RichTextBox, нужно устроить проверку трём из них, если допустим фамилия или имя не заполнены, то вывести сообщение: некорректный ввод(типа)! Кто что может посоветовать? Приложение: Option Explicit On Imports frm = System.Windows.Forms Public Class Form1 Private Ch As CheckStrings Private visitcard_attr(3) As CardAttribute Private Sub BtnShow_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnShow.Click visitcard_attr(0) = New CardAttribute("Фамилия: ", Environment.NewLine) visitcard_attr(0).AttrValue = textFamily.Text visitcard_attr(1) = New CardAttribute("Имя: ", Environment.NewLine) visitcard_attr(1).AttrValue = textName.Text visitcard_attr(2) = New CardAttribute("Отчество: ", Environment.NewLine) visitcard_attr(2).AttrValue = textSurname.Text visitcard_attr(3) = New CardAttribute("Дата рождения: ", "") visitcard_attr(3).AttrValue = dt1.Value BtnSave.Enabled = True Ch = New CheckStrings(visitcard_attr) Rtb1.Text = Ch.VisitCard End Sub Private Sub BtnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSave.Click SaveFileDialog1.Filter = "Текстовые файлы|*.txt|RTF-файлы|*.rtf" If (SaveFileDialog1.ShowDialog() = frm.DialogResult.OK) Then Rtb1.SaveFile(SaveFileDialog1.FileName) CmbCards.Items.Add(SaveFileDialog1.FileName) End If End Sub Private Sub BtnEnd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnEnd.Click End End Sub Private Sub BtnLoad_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnLoad.Click If (CmbCards.SelectedIndex >= 0) Then Rtb1.LoadFile(CmbCards.Items(CmbCards.SelectedIndex)) End If End Sub Protected Overrides Sub Finalize() MyBase.Finalize() End Sub End Class 'Это класс CheckStrings Imports genr = System.Collections.Generic Public Class CheckStrings Public ReadOnly Property VisitCard() As String Get Dim res As String = "" For i As Integer = 0 To attrList.Count - 1 res += attrList(i).AttrValue Next Return res End Get End Property Private attrList As New genr.List(Of CardAttribute) Public Sub New(ByVal ParamArray attrs() As CardAttribute) attrList.AddRange(attrs) End Sub Private Function CheckNumeric(ByVal chstr As String) As Boolean For i As Integer = 0 To chstr.Length - 1 If (IsNumeric(chstr.Chars(i))) Then Return False End If Next Return True End Function Public Function CheckLength() As Boolean Return True End Function End Class 'Это класс CardAttribute Public Class CardAttribute Private _prefix, _delimiter As String Private _value As Object Public Sub New(ByVal pr As String, ByVal delim As String) _prefix = pr _delimiter = delim _value = Nothing End Sub Public Property AttrValue() As Object Get If (_value Is Nothing) Then Return Nothing Else If (_value.GetType().Name.ToLower() = "string") Then If (_value.ToString().Length > 0) Then Return _prefix + _value + _delimiter Else Return "" End If ElseIf (_value.GetType().Name.ToLower() = "datetime") Then Return _prefix + CDate(_value).ToShortDateString() + _delimiter Else Return Nothing End If End If End Get Set(ByVal value As Object) _value = value End Set End Property End Class

Отправлен: 02.04.2009, 19:18 Вопрос задал: Быков Юрий Иванович Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: DrakoN Здравствуйте, Быков Юрий Иванович! Помойму вот Здесь я решал 100% аналогичную задачу. Несколько усложненного типа. Скопируйте код моего ответа добавьте все необходимые контролы. И настройте работу формы под себя. Там ничего сложного Можно скопировать даже код спрашивающего, у него уже было готовое решение вашей задачи. Мой вариант немножко сложнее, но и более конфигурируемый( на случай если преподавателю, еще чего нибудь захочеться) Удачи. Приложение: Imports System.ComponentModel Public Class Form1 Private V As CheckStrings = New CheckStrings() Private Sub BtnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click SaveFileDialog1.Filter = "Текстовые файлы|*.txt|RTF-файлы|*.rtf" If SaveFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then RichTextBox1.SaveFile(SaveFileDialog1.FileName) cmbCards.Items.Add(SaveFileDialog1.FileName) End If End Sub Private Sub BtnLoad_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLoad.Click If (cmbCards.Items.Count > 0) Then Dim curItem As Integer curItem = cmbCards.SelectedIndex If (curItem < 0) Then Exit Sub RichTextBox1.LoadFile(cmbCards.Items(curItem)) End If End Sub Private Sub AssignControl(ByVal c As Control, ByVal propertyName As String, ByVal dataSource As Object, ByVal dataMember As String) Dim b As Binding = New Binding(propertyName, dataSource, dataMember, True) b.NullValue = Nothing c.DataBindings.Add(b) End Sub Private Sub AssginBindings() Me.AssignControl(Me.TextBox1, "Text", Me.V, "Family") Me.AssignControl(Me.TextBox2, "Text", Me.V, "name") Me.AssignControl(Me.TextBox3, "Text", Me.V, "surname") Me.AssignControl(Me.TextBox4, "Text", Me.V, "adress") Me.AssignControl(Me.DateTimePicker1, "Text", Me.V, "DtmText1") Me.AssignControl(Me.RichTextBox1, "SelectedText", Me.V, "RichText1") Me.AssignControl(Me.btnSave, "Enabled", Me.V, "btnSave") End Sub Private Sub LoadMe(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load AssginBindings() End Sub End Class 'А это класс 'Код vb.net Public Class CheckStrings Implements INotifyPropertyChanged Private result As Int32 Public ReadOnly Property ResultI() As Int32 Get Return result End Get End Property Private _text1 As String Public Property Family() As String Get Return _text1 End Get Set(ByVal value As String) _text1 = value NotifyPropertyChanged("Family") End Set End Property Private _text2 As String Public Property name() As String Get Return _text2 End Get Set(ByVal value As String) _text2 = value NotifyPropertyChanged("name") End Set End Property Private _text3 As String Public Property surname() As String Get Return _text3 End Get Set(ByVal value As String) _text3 = value NotifyPropertyChanged("surname") End Set End Property Private _text4 As String Public Property adress() As String Get Return _text4 End Get Set(ByVal value As String) _text4 = value NotifyPropertyChanged("adress") End Set End Property Private _richtext1 As String Public Property RichText1() As String Get Return _richtext1 End Get Set(ByVal value As String) _richtext1 = value NotifyPropertyChanged("RichText1") End Set End Property Private _cmbtext1 As String Public Property cmbText1() As String Get Return _cmbtext1 End Get Set(ByVal value As String) _cmbtext1 = value End Set End Property Private _dtmtext1 As String Public Property DtmText1() As String Get Return _dtmtext1 End Get Set(ByVal value As String) _dtmtext1 = value result = CheckLength() RichResult() End Set End Property Public _btnSave As Boolean Public Property btnSave() As Boolean Get Return _btnSave End Get Set(ByVal value As Boolean) _btnSave = value NotifyPropertyChanged("btnSave") End Set End Property Public Event PropertyChanged As PropertyChangedEventHandler _ Implements INotifyPropertyChanged.PropertyChanged Private Sub NotifyPropertyChanged(ByVal info As String) RaiseEvent PropertyChanged(Me, New PropertyChangedEventArgs(info)) End Sub Private Sub RichResult() Select Case ResultI Case Is = 1 MessageBox.Show("Enter N S F A") EmptyTexts() Exit Sub Case Is = 2 MessageBox.Show("Enter Only Letters") EmptyTexts() Exit Sub End Select RichText1 = "" Dim s As System.Text.StringBuilder = New System.Text.StringBuilder() s.AppendLine(" Personal Information") s.AppendLine("") s.AppendLine("Name: " + name) s.AppendLine("Surname: " + surname) s.AppendLine("Family: " + Family) s.AppendLine("Adress: " + adress) s.AppendLine("Birthday: " + DtmText1) RichText1 = s.ToString() EmptyTexts() btnSave = True End Sub Public Sub EmptyTexts() Family = String.Empty name = String.Empty surname = String.Empty adress = String.Empty End Sub Public Function CheckLength() As Integer Dim res As Integer Dim X1, X2, X3, X4 As Boolean X1 = String.IsNullOrEmpty(Family) X2 = String.IsNullOrEmpty(name) X3 = String.IsNullOrEmpty(surname) X4 = String.IsNullOrEmpty(adress) res = (X1 And X2) Or (X2 And X3) Or (X3 And X4) If (Not res) Then Return 1 res = CheckNumeric(Family) And CheckNumeric(name) And CheckNumeric(surname) If (Not res) Then Return 2 Else Return 0 End Function Public Shared Function CheckNumeric(ByVal Chstr As String) As Boolean Dim i As Integer = 0 While i < Chstr.Length - 1 If (IsNumeric(Chstr.Chars(i))) Then Return False End If i = i + 1 End While Return True End Function End Class --------- От Винта!

Ответ отправил: DrakoN (статус: Практикант) Ответ отправлен: 02.04.2009, 19:31 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 246683 на номер 1151 (Россия) | Еще номера >> Отправить WebMoney: Неплохо (10 руб.) Хорошо (15 руб.) Отлично (20 руб.) БЛЕСТЯЩЕ! (30 руб.) Вам помогли? Пожалуйста, поблагодарите эксперта за это!

© 2001-2009, Портал RusFAQ.ru, Россия, Москва. Авторское право: ООО "Мастер-Эксперт Про" Техподдержка портала, тел.: +7 (926) 535-23-31 Хостинг: "Московский хостер" Поддержка: "Московский дизайнер" Авторские права | Реклама на портале ∙ Версия системы: 5.13 от 01.12.2008
RusFAQ.ru | MosHoster.ru | MosDesigner.ru RusIRC.ru | Kalashnikoff.ru | RadioLeader.ru