imho.ws
IMHO.WS  

Вернуться   IMHO.WS > Компьютеры > Программирование
Опции темы
Старый 06.05.2005, 07:50     # 1
Murderdoll
Member
 
Аватар для Murderdoll
 
Регистрация: 10.04.2004
Адрес: New Jersey, USA
Пол: Male
Сообщения: 347

Murderdoll Имеются все основания чтобы гордиться собойMurderdoll Имеются все основания чтобы гордиться собойMurderdoll Имеются все основания чтобы гордиться собойMurderdoll Имеются все основания чтобы гордиться собойMurderdoll Имеются все основания чтобы гордиться собойMurderdoll Имеются все основания чтобы гордиться собойMurderdoll Имеются все основания чтобы гордиться собойMurderdoll Имеются все основания чтобы гордиться собойMurderdoll Имеются все основания чтобы гордиться собойMurderdoll Имеются все основания чтобы гордиться собойMurderdoll Имеются все основания чтобы гордиться собой
Помогите с программой на Visual Basic.NET

Собсно есть прога. Нужно сделать так, что бы инфу о юзерах можно было сохранять в файл Microsoft Excell при нажатии на кнопку "Save to a file". Помогите, плиз!

Прога (23557 байт)

Последний раз редактировалось Chaki; 06.05.2005 в 09:41.
Murderdoll вне форума  
Старый 06.05.2005, 10:48     # 2
BC Scout
Junior Member
 
Аватар для BC Scout
 
Регистрация: 21.03.2004
Адрес: BC
Сообщения: 157

BC Scout Реально крут(а)BC Scout Реально крут(а)BC Scout Реально крут(а)BC Scout Реально крут(а)
А как же тебе с экзекьютбл помогать то? Код давай Можно в приват.
И укажи какая версия Excel.
__________________
GCS/IT d+(-) s: a++ C++ P+ L+(--) W++ N+ w++ b++ tv+ DI++ e+++ h--- y+++
BC Scout вне форума  
Старый 06.05.2005, 10:54     # 3
Murderdoll
Member
 
Аватар для Murderdoll
 
Регистрация: 10.04.2004
Адрес: New Jersey, USA
Пол: Male
Сообщения: 347

Murderdoll Имеются все основания чтобы гордиться собойMurderdoll Имеются все основания чтобы гордиться собойMurderdoll Имеются все основания чтобы гордиться собойMurderdoll Имеются все основания чтобы гордиться собойMurderdoll Имеются все основания чтобы гордиться собойMurderdoll Имеются все основания чтобы гордиться собойMurderdoll Имеются все основания чтобы гордиться собойMurderdoll Имеются все основания чтобы гордиться собойMurderdoll Имеются все основания чтобы гордиться собойMurderdoll Имеются все основания чтобы гордиться собойMurderdoll Имеются все основания чтобы гордиться собой
Вот код:
Цитата:
Public Shared i As Short = 0
Dim mvFName(9) As String
Dim mvLName(9) As String
Dim mvMName(9) As String
Dim mvEMail(9) As String
Dim mvPhone(9) As String
Dim mvCity(9) As String
Dim mvState(9) As String
Dim mvZip(9) As String

Private Sub MenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem2.Click
End
End Sub

Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd.Click

mvFName(i) = Me.tbFName.Text
mvLName(i) = Me.tbLName.Text
mvMName(i) = Me.tbMName.Text
mvEMail(i) = Me.tbEMail.Text
mvPhone(i) = Me.tbPhone.Text
mvCity(i) = Me.tbCity.Text
mvState(i) = Me.tbState.Text
mvZip(i) = Me.tbZip.Text

i = i + 1

tbCounter.Text = i

Me.tbFName.Clear()
Me.tbLName.Clear()
Me.tbMName.Clear()
Me.tbEMail.Clear()
Me.tbPhone.Clear()
Me.tbCity.Clear()
Me.tbState.Clear()
Me.tbZip.Clear()

End Sub

Private Sub btnSearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSearch.Click

Dim x As Short

For x = 0 To 9
If StrComp(mvLName(x), Me.tbSearch.Text) = 0 Then
Me.tbFName.Text = mvFName(x)
Me.tbLName.Text = mvLName(x)
Me.tbMName.Text = mvMName(x)
Me.tbEMail.Text = mvEMail(x)
Me.tbPhone.Text = mvPhone(x)
Me.tbCity.Text = mvCity(x)
Me.tbState.Text = mvState(x)
Me.tbZip.Text = mvZip(x)
End If
Next

Me.tbSearch.Clear()

End Sub
Поскольку я тока начал изучать Visual Basic, то никаких особо сложных приемов не надо. По-проще, даже если это и немного дольше. И сохранять надо не в Excel'е (как я думал), а в расширении .csv

ЗЫ Огромное спасибо!
Murderdoll вне форума  
Старый 07.05.2005, 00:30     # 4
BC Scout
Junior Member
 
Аватар для BC Scout
 
Регистрация: 21.03.2004
Адрес: BC
Сообщения: 157

BC Scout Реально крут(а)BC Scout Реально крут(а)BC Scout Реально крут(а)BC Scout Реально крут(а)
Hey! Нужен твой файл <form>.vb В цитате ведь нет Controls, да и добавлять тоже контрол нужно будет. Или раскрой #Region " Windows Form Designer generated code " и приведи ВЕСЬ текст.
__________________
GCS/IT d+(-) s: a++ C++ P+ L+(--) W++ N+ w++ b++ tv+ DI++ e+++ h--- y+++
BC Scout вне форума  


Ваши права в разделе
Вы НЕ можете создавать новые темы
Вы не можете отвечать в темах.
Вы НЕ можете прикреплять вложения
Вы НЕ можете редактировать свои сообщения

BB код Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.

Быстрый переход


Часовой пояс GMT +4, время: 23:59.




Powered by vBulletin® Version 3.8.5
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.