Версия для печати темы Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > VB .NET > 1000 мелочей

Автор: diadiavova 9.6.2010, 20:11

В этой теме задаём всевозможные мелкие вопросы, ради решения которых не стоит создавать отдельную тему. Очень часто бывает, что подобные вопросы кидают вдогонку в другуи етемы, в которых обсуждаются другие вопросы. Это нарушает одно из правил форума "Один топик - один вопрос". Поэтому если вы считаете, что вашь вопрос может быть решён быстро и не стоит ради него создавать отдельную тему  - добро пожаловать сюда.

Автор: AChrist 17.6.2010, 17:40

Код         Dim tb4 As New DataTable 'временная таблица для выбора          tb4.Columns.Add("prefix", GetType(Long))         tb4.Columns.Add("number", GetType(Long))         Dim temprow As Integer         temprow = 0         For f = 0 To tb3.Rows.Count()             If tb2.Rows(0).Item(1) = tb3.Rows(f).Item(2) Then                 'tut perenos nado                 tb4.Rows(temprow).Item(0) = tb3.Rows(f).Item(0) 'копируем префикс                 tb4.Rows(temprow).Item(1) = tb3.Rows(f).Item(1) 'копируем номер                 temprow = temprow + 1             End If         Next f Помогите записать все содержимое tb4  datatable в файл txt. Пробовал поиск но оказалось сложно для моего понимания. И есть какой-то способ зачистить datatable чтоб она была пуста? мне для цикла надо...

Автор: diadiavova 17.6.2010, 17:46

Цитата(AChrist @  17.6.2010,  18:40 ) И есть какой-то способ зачистить datatable чтоб она была пуста? System.Data.DataTable.Clear() Цитата(AChrist @  17.6.2010,  18:40 )    If tb2.Rows(0).Item(1) = tb3.Rows(f).Item(2) У тебя это условие не выполнится никогда из-за того, что индексация с нуля начинается и при двух столбцах столбца с индексом 2 быть просто не может. А вообще для сохранения таблицы используй метод WriteXml.

Автор: Natapro 1.7.2010, 09:53

http://forum.vingrad.ru/forum/topic-300497/15.html в файле есть текст Chast1:Chast2 как разделить его что б часть 1 ишла в текстбокс1 а часть 2 в текстбокс 2 их ведь роделяет ":" весь текст записан в столбчик...

Автор: Exai1e 1.7.2010, 10:32

Natapro,  Код             string[] srcString = File.ReadAllLines(@"C:\some1.txt");             foreach (string currentString in srcString)             {                 int sepIndex = currentString.IndexOf(':');                 string partOne = currentString.Substring(0, sepIndex);                 string partTwo = currentString.Substring(++sepIndex, currentString.Length - sepIndex);             } упс не заметил что тема в разделе VB, извиняюсь

Автор: diadiavova 1.7.2010, 10:37

Natapro,  http://msdn.microsoft.com/ru-ru/library/system.string.split.aspx

Автор: Natapro 1.7.2010, 17:45

не нашла там.. (( помоги пожалуйста

Автор: diadiavova 1.7.2010, 18:00

А чо там искать? первый же метод Код Dim s = "Chast1:Chast2" Dim sa = s.Split(":"c) MsgBox(sa(0)) MsgBox(sa(1))

Автор: Natapro 1.7.2010, 18:06

0-1 это до и после : да ?

Автор: Exai1e 1.7.2010, 18:07

Natapro, да

Автор: diadiavova 1.7.2010, 18:10

Цитата(Natapro @  1.7.2010,  19:06 ) 0-1 это до и после : да ? У тебя получается массив строк, в элементах которого будет все, что между сепараторами.

Автор: AChrist 5.8.2010, 14:40

К сожалению не понимаю этого метода WriteXML... Код <?xml version="1.0" standalone="yes"?> <DocumentElement /> Вот что получаю когда хочу всю таблицу в файл скинуть. Код  Dim temprow, x As Integer         For x = 0 To tb2.Rows.Count - 1             For f = 0 To tb3.Rows.Count() - 1                 If tb2.Rows(x).Item(2).ToString = tb3.Rows(f).Item(2).ToString Then                     'тут запись из списка всех номеров только этого региона во временную таблицу                     tb4.Rows(temprow).Item(0) = tb3.Rows(f).Item(0) 'копируем префикс                     tb4.Rows(temprow).Item(1) = tb3.Rows(f).Item(1) 'копируем номер                 End If                 temprow = temprow + 1             Next f         Next x         tb4.WriteXml("C:\1.txt") И вообще может я совсем неправильно создавал таблицы? Код Public Class Form1     Public Dim tb2 As New DataTable("tab2")     Public tb1 As New DataTable("location")     Public tb3 As New DataTable("persons")     Public tb4 As New DataTable("temptab")  tb2.Columns.Add("col1", GetType(String))          tb2.Columns.Add("col2", GetType(Integer))          tb2.Columns.Add("col3", GetType(Integer))         tb1.Columns.Add("col1", GetType(String))         tb1.Columns.Add("col2", GetType(Integer))         tb1.Columns.Add("col3", GetType(Integer))         tb3.Columns.Add("prefix", GetType(Long))         tb3.Columns.Add("phone", GetType(Long))         tb3.Columns.Add("locationid", GetType(Integer))         tb4.Columns.Add("prefix", GetType(Long))         tb4.Columns.Add("number", GetType(Long)) Вот так я создаю таблицы в которых держу данные. Помогите пожалуйста сохранить таблицу tb4 в обычном txt файле. Файл в идеале должен получится tb4 столбик 1 + "-" + tb4 столбик 2 + "\n"

Автор: diadiavova 5.8.2010, 15:01

AChrist, а почему ты не используешь базы данных? Ведь это все делается с помощью простейших запросов?

Автор: AChrist 5.8.2010, 15:08

Я считываю данные из двух текстовых файлов, потом обработав мне нужно сгенерировать определенное количество записей исходя пересечений в этих двух файлах... я совсем начинающий в этом деле, уж простите   ...

Автор: diadiavova 5.8.2010, 18:01

AChrist, тогда объясни словами, что у тебя там и с чем пересекается, потому что, судя по всему таблица у тебя не заполняется.

Автор: AChrist 6.8.2010, 15:06

Нашел несколько ошибок у себя в разделе считывания с файла, потом стало получаться и стал выходить из проблем.  Изменил стиль записи в таблицу и стало нормально записываться.  Может кому пригодится: Код If tb2.Rows(x).Item(1) = tb3.Rows(f).Item(2) Then                     trow = tb4.NewRow                     trow(0) = tb3.Rows(f).Item(0)                     trow(1) = tb3.Rows(f).Item(1)                     tb4.Rows.Add(trow(0), trow(1))                 End If

Автор: AChrist 8.9.2010, 19:07

Здравствуйте, стало интересно, как можно включить в проект файлы, что бы в итоге я имел 1 файл "myprog.exe" который уже содержит все что надо.  Сейчас у меня получается так: file.csv, file2.csv, myprog.exe. А я хотел бы, чтоб myprog.exe уже содержал эти файлы.   Я пробовал My.Resources.file, но при моем виде как я считывал файл - получается совсем не то.  Вот так сейчас выглядит код: Код         Dim sFilename As String = "file.csv"         Dim myStream As System.IO.StreamReader = New System.IO.StreamReader(sFilename)         Dim line As String         Dim aRow As DataRow         Do             line = myStream.ReadLine()             If line Is Nothing Then                 Exit Do             End If 'magic         Loop         myStream.Close() Подскажите пожалуйста как быть?

Автор: diadiavova 8.9.2010, 19:18

В свойствах проекта открой вкладку "Ресурсы", выбери тип ресурса и имя. Доступ в коде получишь через  Код My.Resources.<Имя ресурса>

Автор: AChrist 10.9.2010, 12:06

Код My.Resources.<Имя ресурса> Я пробовал это, но visual studio мне сsv  файл превращает в одну сплошную строку

Автор: diadiavova 10.9.2010, 15:36

Цитата(AChrist @  10.9.2010,  13:06 ) Я пробовал это, но visual studio мне сsv  файл превращает в одну сплошную строку А надо?

Автор: AChrist 10.9.2010, 17:06

А надо, чтоб я построчно мог считывать

Автор: diadiavova 10.9.2010, 17:10

Хочешь сказать, что обрывы строк удаляются?  Такого быть не должно.

Автор: AChrist 10.9.2010, 17:44

http://i56.tinypic.com/2dsl73o.png http://i52.tinypic.com/14ujt5u.png похоже, что да... или я может не так считываю из ресурсов.

Автор: diadiavova 10.9.2010, 17:56

Цитата(AChrist @  10.9.2010,  18:44 ) или я может не так считываю из ресурсов.  Я у тебя там построчного считывания вообще не вижу. Ты сразу же в первой итерации цикла считываешь весь текст. Хотя всего кода там не видно Код Dim sr As New Io.StringReader(My.Resources.loca) Dim line As String = sr.ReadLine() Do Until String.NullOrEmpty(line)     'Здесь добавляй line куда надо     line = sr.ReadLine() Loop sr.Dispose() Код набросал примерно, так что, если что подправь сам.

Автор: AChrist 10.9.2010, 18:30

Спасибо! Вы можно сказать просто ткнули меня в мою собственную невнимательность и не способность догадаться правильно переделать по аналогии свой же код. Ведь все тоже самое уже было написано, но переделать надо было как Вы набросали.

Автор: andrey1636 16.8.2011, 15:19

Есть два текстбокса и кнопка. Какой нужен код, чтобы кнопка активировалась если 2 строки заполнены? Код     Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load         If TextBox1.Text = "" And TextBox3.Text = "" Then             PictureBox10.Visible = False         Else             PictureBox10.Visible = True         End If Не робит, хотя в vb6 робило...

Автор: diadiavova 16.8.2011, 18:56

Цитата(andrey1636 @  16.8.2011,  16:19 ) Не робит, хотя в vb6 робило... А что должно происходить-то? Я так понимаю, при загрузке формы текстбоксы всегда в одном состоянии находятся(например пусты), стало быть картинка всегда будет тоже появляться в одном состоянии. Если код разместить в обработчике клика какой-то кнопки, то в принципе должно работать. Только вместо And лучше использовать AndAlso(хотя и не обязательно, но о различиях читай мсдн), ну и код этот можно написать покороче Код PictureBox10.Visible = Not (TextBox1.Text = "" AndAlso TextBox3.Text = "") А так я не вижу причин, для того, чтобы это не работало.

Автор: andrey1636 17.8.2011, 07:57

Судя по коду, это процедура загрузки формы (Me.Load) Естественно, во время загрузки формы, текстБоксы пустые. Больше эта процедура вызываться не будет, поэтому и код Visible = False / Visible = True не выполнится. Надо привязываться к событиям изменения содержимого TextBox'-ов... Код Public Class Form1 Private Sub TextBox_Changed() Handles TextBox1.TextChanged, TextBox2.TextChanged If TextBox1.Text = "" And TextBox2.Text = "" Then Button1.Enabled = False Else Button1.Enabled = True End If End Sub End Class Вот в чем ошибка была) Спасибо мужику с ответы@mail.ru   А подскажите код сворачивания окна. Что то найти не могу...

Автор: diadiavova 17.8.2011, 08:31

Цитата(andrey1636 @  17.8.2011,  08:57 ) Судя по коду, это процедура загрузки формы  Что значит судя по коду? Ты написал код и не знаешь что и когда он делает что ли?   Цитата(andrey1636 @  17.8.2011,  08:57 ) Больше эта процедура вызываться не будет, поэтому и код Visible = False / Visible = True не выполнится. Ну я вообще-то это и написал Цитата(diadiavova @  16.8.2011,  19:56 ) Я так понимаю, при загрузке формы текстбоксы всегда в одном состоянии находятся(например пусты), стало быть картинка всегда будет тоже появляться в одном состоянии.  Цитата(andrey1636 @  17.8.2011,  08:57 ) А подскажите код сворачивания окна. Что то найти не могу... http://msdn.microsoft.com/ru-ru/library/system.windows.forms.form.windowstate.aspx

Автор: andrey1636 17.8.2011, 09:22

diadiavova, это я процитировал чувака, который мне помог   Во, спасибище за код

Автор: diadiavova 17.8.2011, 21:22

А почему не заменил это Код If TextBox1.Text = "" And TextBox2.Text = "" Then Button1.Enabled = False Else Button1.Enabled = True End If Этим Код Button1.Enabled = Not (TextBox1.Text = "" AndAlso TextBox2.Text = "") ?

Автор: andrey1636 18.8.2011, 10:29

Не знаю   Вот еще вопрос. Программы на написанные на VS2008 требуют установленной NF3.5. Как этого избежать? Или мне переходить с vb.net'а на vb6?

Автор: diadiavova 18.8.2011, 10:57

Цитата(andrey1636 @  18.8.2011,  11:29 ) Вот еще вопрос. Программы на написанные на VS2008 требуют установленной NF3.5. Как этого избежать? В вс 2008 при создании проекта можно выбрать целевой фреймворк. Если выбрать 2.0, то они будут требовать именно его. Цитата(andrey1636 @  18.8.2011,  11:29 ) Или мне переходить с vb.net'а на vb6?  Если установка фреймворка на целевом компьютере - проблема, то переходи. Хотя фреймворк уже в состав винды входит.

Автор: hmaraegor 8.12.2011, 00:42

Как сделать форму  в VB невидимой для мыши. Есть полупрозрачная форма, надо сделать так, что бы все,  что находится под ней реагировало на мышь(клики и т.д.). Пример:  Полупрозрачная форма находится над папкой(на рабочем столе),  мы щелкаем по папке, форма нажатия мыши игнорирует, а папка открывается. Заранее спасибо.

Автор: diadiavova 8.12.2011, 12:08

hmaraegor, честно говоря, не уверен, что такое вообще возможно. А где ты такое видел?

Автор: hmaraegor 8.12.2011, 13:31

Не могу вспомнить, но где-то точно было. Кажется огромные, почти прозрачные, часы во весь экран. Там можно было и за компьютером нормально работать, и часы видеть.

Автор: workout333 31.1.2012, 19:56

я рад что у вас все получается

Автор: ItsAtrap 6.2.2012, 08:06

Всем привет. Ближайшие несколько месяцев буду докучать нубскими вопросами. Не серчайте. Видимо эта тема как раз для меня.    Начал заниматься по учебнику: Зибиров В.В. - Visual Basic 2010 на примерах. Первый вопрос: Уже разобрался (вроде). Код     Sub Main()         Dim X, Y, Z As Single         Console.WriteLine("Please, enter first number:")         X = Console.ReadLine()                                        ' Вводим переменную X         Console.WriteLine("Please, enter second number:")         Y = Console.ReadLine()                                        ' Вводим переменную Y         Z = X + Y                                                     ' Присваеваем переменной Z значение X + Y         Console.WriteLine("здесь текст", X, Y, Z)                     ' Проблема вот здесь. Процедура(?) должна выводить "здесь текст" и значения 3-х переменных. У меня выводит только "здесь текст".         Console.ReadLine()     End Sub Вместо символа "," ставить "&". В учебнике стоят запятые. Код         Console.WriteLine(X & " + " & Y & " = " & Z) Вопрос номер два. Как сделать самую простую проверку на введение числа, и а не букв или других символов. Вроде и с этим разобрался. Через IsNumeric.

Автор: diadiavova 6.2.2012, 11:21

Цитата(ItsAtrap @  6.2.2012,  09:06 ) Проблема вот здесь. Процедура(?) должна выводить "здесь текст" и значения 3-х переменных. У меня выводит только "здесь текст".         Console.ReadLine() Ну естественно она будет выводить тот текст, который ты ввел. а ты попробуй написать вот так Код Console.WriteLine("{0} + {1} = {2}", X, Y, Z)

Автор: ItsAtrap 6.2.2012, 22:26

Ядрён батон! Вот это да =)))) Я и не думал, что он может что-то понимать внутри кавычек. Спасибо. Впредь обещаю быть внимательнее. Разбираюсь дальше.

Автор: error0x40 14.2.2012, 21:11

Есть идея для перевода на несколько языков не большой программы.  Пример файла языка: mnuFile->Файл mnuFileOpen->Открыть mnuFileClose->Закрыть Данные строки относятся к главному меню Как избежать избыточного кода? Альтернатива следующему: Код //код открытия файла языка //помещение строки в массив Line типа String //Назначение текста у одного контрола тип MenuItems Dim nId as Integer nId = Line.FindString("mnuFile") If nFind >=0 Then  Dim Text as String() = Split(Line(nId), "->") mnuFile.Text = Line(1) End IF Т.е. мне нужно получить все имеющиеся контролы на всех формах, и каждому присвоить в свойство Text строку назначенную в файле. Как реализовать правильней функцию назначения каждому элементу формы? Буду благодарен за помощь.

Автор: error0x40 14.2.2012, 22:19

Извините за глупый вопрос, собственно решил своими силами: Код     Dim MyContol As Control.ControlCollection     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load         Dim nID As Integer         Dim Text As String()         MyContol = Me.Controls         For i = 0 To MyContol.Count - 1             nID = ListText.FindString(MyContol.Item(i).Name)             If nID >= 0 Then                 Text = Split(ListText.Items(nID), "->")                 If Text(1) <> Nothing Then MyContol.Item(i).Text = Text(1)             End If         Next     End Sub Выслушаю любые альтернативные варианты

Автор: diadiavova 15.2.2012, 00:09

Цитата(error0x40 @  14.2.2012,  22:11 ) Есть идея для перевода на несколько языков не большой программы.  Хорошая идея, только зачем велосипед изобретать? Поищи в msdn по слову "Локализация" или можно начать к примеру отсюда http://msdn.microsoft.com/ru-ru/library/y99d1cd3.aspx

Автор: error0x40 15.2.2012, 00:56

diadiavova,  спасибо,  честно говоря я даже не знал=)

Автор: Feller 22.2.2012, 09:48

Как вернуть путь где находится приложение? Ну аналог |DataDirectory|.

Автор: diadiavova 22.2.2012, 11:01

Feller, в винформ приложении - System.Windows.Forms.Application.StartupPath , а ток вообще можно получить его через System.Windows.Forms.Application.StartupPath, или к примеру через System.Reflection.Assembly.GetExecutingAssembly().Location

Автор: Feller 23.2.2012, 09:10

diadiavova,  А как получить доступ например у меня в папке приложения есть папки import и экспорт как можно получить путь до них ?

Автор: diadiavova 23.2.2012, 11:17

Цитата(Feller @  23.2.2012,  10:10 ) diadiavova,  А как получить доступ например у меня в папке приложения есть папки import и экспорт как можно получить путь до них ? Ну так построить путь например с помощью методов класса System.IO.Path.

Автор: Feller 7.6.2012, 07:38

diadiavova,  Помогите пожалуйста функцию на C# перевести в VB.net Код   public static string Encode(string cStr)         {             int length = 0;             string str = "j,ofzyfghfdktyyjcnmcfvjghjbpdjkmys[ghjwtccjdytnjkmrjzdkztnczghbxbyjqkf,bkmyjcnbdscjrjlbcgthcnys[cbcntvyjbjnrhsdftngenmcnf,bkbpfwbblbcgthcnyjcnbgentvbpvtytybzvt;afpjds[gjdth[yjcntq";             string str3 = "";             string str2 = str;             length = cStr.Length;             while (length > str.Length)             {                 str = str + str2;             }             for (int i = 0; i < length; i++)             {                 string str4 = Convert.ToString((int) (cStr[i] ^ str[i])).PadLeft(3, '0');                 str3 = str3 + str4;             }             return str3;         }

Автор: diadiavova 7.6.2012, 09:46

Feller, с таким простым кодом вполне справится любой автоматический конвертер. Вот такой например(нашел за пару минут в гугле) http://converter.foxtools.ru/Default.aspx

Автор: Feller 7.6.2012, 14:26

diadiavova,  В этом месте возникает ошибка    Оператор "Xor" для типов "Char" и "Char" не определен.   Код Dim str4 As String = Convert.ToString(DirectCast(([cStr](i) Xor str(i)), Integer)).PadLeft(3, "0"c)

Автор: diadiavova 7.6.2012, 14:31

Цитата(Feller @  7.6.2012,  15:26 ) В этом месте возникает ошибка    Оператор "Xor" для типов "Char" и "Char" не определен. Нужно привести к типу Integer, то есть замени  Код [cStr](i) Xor str(i) на Код CInt([cStr](i)) Xor CInt(str(i))

Автор: Feller 7.6.2012, 14:48

diadiavova,  Студия выдала ошибку сказала что char нельзя преобразовать в integer, и предложила вариант AscW. Хотя  AscW не подходит, он не конвертирует в integer. Код  Dim str4 As String = Convert.ToString((CInt(AscW([cStr](i))) Xor (CInt(AscW(str1(i)))))).PadLeft(3, "0"c)

Автор: diadiavova 7.6.2012, 14:51

Цитата(Feller @  7.6.2012,  15:48 ) Хотя  AscW не подходит, он не конвертирует в integer. Ну эта функция делает как раз то, что надо. Есть еще у самой структуры Char метод, который можно использовать. Просто в шарпе это делает компилятор, а в бейсике надо делать вручную. Добавлено через 1 минуту и 43 секунды Метод, о котором я написал - System.Char.ConvertToUtf32

Автор: Feller 7.6.2012, 14:57

diadiavova, Спасибо А что за метод в Char?  А для чего нужен оператор XOR , в msdn почитал но там не множко не понятно.

Автор: diadiavova 7.6.2012, 15:42

Цитата(Feller @  7.6.2012,  15:57 ) А что за метод в Char?  Я же написал Цитата(diadiavova @  7.6.2012,  15:51 ) System.Char.ConvertToUtf32     Цитата(Feller @  7.6.2012,  15:57 ) А для чего нужен оператор XOR , в msdn почитал но там не множко не понятно.  Что именно непонятно? Я знаю ровно то, что написано в мсдн.

Автор: Feller 29.6.2012, 07:58

Как из строки заменить 3 символа ,:.  на пустоту.?Это можно сделать при помощи Replace но тогда Replace придётся писать 3 раза.

Автор: diadiavova 14.7.2012, 19:04

Цитата(Feller @  29.6.2012,  08:58 ) но тогда Replace придётся писать 3 раза.  Если это проблема, то решить можно методом http://msdn.microsoft.com/ru-ru/library/e7f5w83z.aspx. Нужный тебе паттерн будет выглядеть так Код [,:\.]

Автор: gangsterovich 27.8.2012, 11:46

имеется текст файл.как удалить строчку в файле ,если знаем что строчка должна содержать в себе "строчка".перерыл 4 форума.приемлимого  ответа не нашел.код 2-3 строчки должен занимать,как мне кажется

Автор: diadiavova 27.8.2012, 18:01

gangsterovich, Так, а в чем проблема-то? Считываешь файл с помощью IO.File.ReadAllLines, получаешь массив строк передаешь их в другую коллекцию, проверяя попутно нет ли там удаляемой строчки(ее пропусти), что останется либо впиши в файл заново построчно( с помощью StreamWriter например), либо объедини с помощью String.Join и запиши в файл в одно действие.

Автор: Feller 6.11.2012, 13:40

Как сделать регулярку для проверки номера 792123456777 чтоб код был 792 и номер телефона 9 значным, заранее спасибо

Автор: diadiavova 6.11.2012, 13:43

^792\d{9}$

Автор: swq25 23.2.2013, 03:41

Всем здравствуйте! Есть проблема - странно запускается приложение на другом компьютере - на форме каша из объектов. Установлен VB.NET express 2008 на обеих машинах. Подскажите пожалуйста,  где ковырять ?

Автор: diadiavova 23.2.2013, 10:29

swq25, недостаточно информации, чтобы сказать что-то конкретное.

Автор: swq25 24.2.2013, 06:22

Добрый день ! Уточняю по поводу запуска приложений. Открываю проект , выполняю пункт   построение -> построить . Построение без ошибок и предепреждений.  Из каталога имя_проекта-bin копирую папку release на флешку. Запускаю на другой машине с установленным с одной копии vb.net 2008 и получаю кашу на экране.  Сморю второй день на это безобразие и продолжать не хочется. На третьей машине такая же хрень. Даже обработка нажатий кнопок на форме не корректная. Наверное очередная лажа от мелкософта ? Перенес папку с  проектом на другую машину. Эффект тот же !!!!!!!!!!!!!?????????????

Автор: diadiavova 24.2.2013, 09:07

swq25, то, что ты описал, было ясно и с первого раза. Каким, по-твоему, образом я или кто-либо ещё сможем определить источник проблемы, не зная о программе ровным счётом ничего кроме того, что она неправильно работает?  Цитата(swq25 @  24.2.2013,  07:22 ) Наверное очередная лажа от мелкософта ?  Началось.

Автор: swq25 24.2.2013, 09:56

Прошу прощения, но  по-моему такой эффект вызван не моими способностями в программировании. Обычная форма, обычные объекты. Позволю себе повториться -  При открытии проекта на другом компе - форма имеет вид как на картинке. В проекте еще нет ни одной строчки, написанной мной.

Автор: diadiavova 24.2.2013, 11:32

Цитата(swq25 @  24.2.2013,  10:56 ) Прошу прощения, но  по-моему такой эффект вызван не моими способностями в программировании.  Технология, о которой мы говорим, существует более десяти лет, при этом речь идёт не о какой-то поделке никому неизвестного энтузиаста, а о флагманском продукте одного из лидеров софтверного рынка. На протяжении всего этого времени огромная армия разработчиков пишет неимоверное количество программных продуктов, используя .Net Framework и всё у них получается. Но вот приходит новичок, первый опыт работы с технологией оказался неудачным, и во всём ессно виноват производитель продукта, но только не сам новичок. Я ничего не упустил?  Цитата(swq25 @  24.2.2013,  10:56 ) Обычная форма, обычные объекты.  Что форма и контролы обычные, я тоже понял, я не понял, что ты с ними делал, что они так себя повели. Если бы ты выложил проект, это, возможно, прояснило бы ситуацию, но поскольку проект у тебя секретный и выложить ты его не можешь, что ж, так и быть достану свой хрустальный шар и буду смотреть через него... Во-первых, для распространения проекта, его желательно бы не скопировать из указанной папки, а опубликовать и на целевой машине выполнить установку. Не думаю, что проблема именно в этом, хотя вполне может быть, что такой подход её и решит. Во-вторых, если ты потыкал в дизайнере, это ещё не значит, что ты не занимался программированием, ибо компановка элементов управления - задача ой какая непростая. В технологию компановки обычно закладывается не только возможность расположить контрол где надо, но и динамическое поведение, регулирующее взаиморасположение контролов при изменении размеров формы или её частей, а так же то, как всё это хозяйство будет выглядеть в условиях экрана с другим разрешением или, скажем, в другой локализации, где надписи на другом языке могут занимать пространство другого размера. Кроме того, меня малость смущает, что в последнем посте ты пишешь об отсутствии в проекте твоего кода, хотя в предыдущем жаловался на то, что кнопки неправильно реагируют на клики. Как они должны на них реагировать, если код обработки ты не писал? Что-то здесь не сходится

Автор: swq25 24.2.2013, 15:35

Вот это и смущает - без хрустального шара трудно обойтись . Еще бубна для комплекта не хватает. Делаю вывод - VB.net в мусорку. Не хочу тратить свое время и простите, что отнял Ваше.

Автор: diadiavova 24.2.2013, 16:12

Ну удачи тогда, она явно будет кстати

Автор: Feller 27.3.2013, 09:55

Как можно преобразовать системную дату в формат 'YYYYMMDDHH24MISS'? Зарание спасибо

Автор: diadiavova 27.3.2013, 10:00

http://msdn.microsoft.com/ru-ru/library/az4se3k1.aspx

Автор: Feller 27.3.2013, 11:15

diadiavova,  Что я не нашёл там как задать нужный мне формат , в sql это легко TO_CHAR(SYSDATE,  'YYYYMMDDHH24MISS'). Думаю это не правильно отправлять запрос в базу из за даты.

Автор: diadiavova 27.3.2013, 11:35

Тогда здесь http://msdn.microsoft.com/ru-ru/library/8kb3ddd4.aspx

Автор: Feller 27.3.2013, 13:13

diadiavova,  Date.Now.ToString("YYYYMMDDHH24MISS")  не получаеться выдаёт  YYYY03DD15243ISS

Автор: diadiavova 27.3.2013, 13:32

Код DateTime.Now.ToString("yyyyMMddHHmmss")

Автор: Feller 1.4.2013, 13:44

diadiavova, спасибо

Автор: Azhur 29.4.2013, 12:01

Добрый день!Помогите новичку!! Есть 2 приложения 1.сервер и 2.клиент, при изменение значения label1 на сервере оно передается label1 клиенту и наоборот с label2 клиент передает значение на label2 сервер все писалось под vb 6.0, можно как нибудь реализовать на vb.net? или лучше не по Winsock ??? сервер: Код Private Sub Form_Load() Winsock1.LocalPort = 101 Winsock1.Listen  Form1.Caption = "Сервер" End Sub Private Sub label1_Change() Winsock1.SendData Label1.Caption  End Sub Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long) If Winsock1.State <> sckClosed Then Winsock1.Close Winsock1.Accept requestID End Sub Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long) Dim D As String  Winsock1.GetData D Label1.Caption = D  End Sub Private Sub Command1_Click(Index As Integer) Label1 = Val(Label1) + 1 Label2 = Val(Label2) + 1 End Sub Private Sub Command2_Click(Index As Integer) Label1 = Val(Label1) + 1 Label2 = Val(Label2) + 1 End Sub клиент: Код Private Sub Form_Load() Winsock1.RemoteHost = "127.0.0.1" Winsock1.RemotePort = 101  Winsock1.Connect Form1.Caption = "Клиент" End Sub Private Sub Label1_change() ' Принимаем запрос Winsock1.SendData Label1.Caption ' Принимаем запрос End Sub Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)  Dim DD As String  Winsock1.GetData DD  Label1.Caption = DD End Sub Private Sub Command1_Click() Label1 = Val(Label1) - 1 Label4.Caption = "идет прием" Label5 = Val(Label5) + 1 End Sub Private Sub Command2_Click() Label4.Caption = "свободное окно" End Sub Заранее спасибо!

Автор: diadiavova 29.4.2013, 23:13

Цитата(Azhur @  29.4.2013,  13:01 )  или лучше не по Winsock ??? http://msdn.microsoft.com/ru-ru/library/dd456779.aspx

Автор: Azhur 15.5.2013, 10:29

Все таки по Winsock решил сделать, еще вопрос появился, как несколько клиентов подключить к серверу на примере приведенного кода?Заранее спасибо.

Автор: diadiavova 15.5.2013, 11:56

Цитата(Azhur @  15.5.2013,  11:29 ) на примере приведенного кода Этот пример приведён на vb6, а это по сути другой язык, другая технология и с вопросами по ним нужно обращаться в соответствующий раздел. http://forum.vingrad.ru/forum/vb-visual-basic.html

Автор: Feller 21.5.2013, 12:41

Как можно распарсить xml собщение чтоб вытащить значение Amount или status , зарание спасибо <?xml version="1.0" encoding="UTF-8" ?>     <objects >      <OrderPay >               <Amount >100<Amount />          <status >1</ status >          </ OrderPay >    </ objects >

Автор: diadiavova 21.5.2013, 13:15

http://msdn.microsoft.com/ru-ru/library/system.xml.xmldocument.aspx http://msdn.microsoft.com/ru-ru/library/system.xml.linq.xdocument.aspx Использовать можно любой, смотри какой тебе удобнее, хотя для такой задачи вообще без разницы.

Автор: Feller 22.5.2013, 10:17

спасибо Добавлено через 4 минуты и 13 секунд Как сконвертировать string в decimal? пробую так Код Dim value As String         Dim number As Decimal         Dim style As NumberStyles                 value = "23000000.00"         style = NumberStyles.AllowDecimalPoint         Try             number = Decimal.Parse(value, style)                 Catch ex As FormatException                   End Try возникает ошибка (Входная строка имела неверный формат.)

Автор: diadiavova 22.5.2013, 12:18

NuberStyles это что? Возможно ты имел в виду http://msdn.microsoft.com/ru-ru/library/system.globalization.numberformatinfo.aspx

Автор: Feller 24.5.2013, 07:16

Дело оказалось в запятой Convert.ToDecimal(Replace(pValueTrans, ".", ","))

Автор: diadiavova 24.5.2013, 22:38

Цитата(Feller @  24.5.2013,  08:16 ) Дело оказалось в запятой А сразу это было непонятно?  Метод Parse прекрасно работает как с запятой, так и с точкой, и что он будет считать десятичным разделителем зависит от форматпровайдера, который передается вторым аргументом. По умолчанию в качестве форматпровайдера используется культура операционной системы. Но это поведение можно изменить. А заменять точку на запятую реплейсом - это вообще отстой.

Автор: Feller 30.5.2013, 08:16

А как тогда красиво сделать, пробывал Parce разные стили, всё равно не работает?

Автор: diadiavova 30.5.2013, 10:22

Код Decimal.Parse("23000000.00", System.Globalization.CultureInfo.InvariantCulture) Или можно намберформатинфо из этой же культуры использовать. Разницы в принципе нет, поскольку оба класса реализуют интерфейс IFormatProvider

Автор: Feller 6.6.2013, 15:10

Как сделать тоже самое  Код Dim items As XmlNodeList = doc.GetElementsByTagName(pParam)         For Each x As XmlNode In items             Return x.InnerText                    Next x         Return Nothing но при помощи linq

Автор: diadiavova 6.6.2013, 16:52

Попробуй так Код Return From x As XmlNode In doc.GetElementsByTagName(pParam) Select x.InnerText

Автор: vasya1109 5.8.2013, 14:06

Как реализовать в одной структуре два метода с одинаковми именами. Один метод принадлежит интерфесу, а второй структуре. Код Structure S             Implements I             Private m_prop As T             ' Пишет: "... не могут перегружать друг друга, т. к. они отличаются только возвращаемыми типами."             ' подчеркивает Prop             Public ReadOnly Property Prop() As T                 Get                     Return Me.m_prop                  End Get             End Property             Public ReadOnly Property Prop() As Object Implements I                 Get                 End Get             End Property End Structure

Автор: diadiavova 5.8.2013, 14:22

Переименуй второе свойство, его имя не обязательно должно совпадать с именем в интерфейсе.

Автор: Feller 10.12.2013, 22:25

Как сравнить два datatable  и найти одинаковые значения по 2 полям?

Автор: diadiavova 10.12.2013, 22:34

Цитата(Feller @  10.12.2013,  23:25 ) Как сравнить два datatable  и найти одинаковые значения по 2 полям?  Двойным циклом. Во внешнем перебираешь строки первой таблицы, во внутреннем - второй. Внутри сравниваешь. Добавлено через 1 минуту и 52 секунды А вообще вопрос не очень понятен, это общий метод, но для конкретного случая может и можно найти более элегантное решение.

Автор: Feller 21.1.2014, 11:05

Функция возвращает sql.GetDateUpdate() строку из базы  20.01.2014 0:00:00. Как её преобразовать к формату  dd.MM.yyyy? Зарание спасибо. Me.txtDateUpdate.Text = [String].Format(sql.GetDateUpdate(), "dd.MM.yyyy") не работает

Автор: diadiavova 11.2.2014, 00:57

Код Date.Parse("20.01.2014 0:00:00").ToString("dd.MM.yyyy")

Автор: Feller 11.2.2014, 09:54

Спасибо

Автор: Feller 11.2.2014, 10:16

Есть DataSet который заполняет контрол , после того как он его заполнил я хочу достучаться к нему из своей формы form2? Private row1 As form1.PersonsDataset.PERSONSRow = form1.PersonsDataset.PERSONSRow

Автор: diadiavova 12.2.2014, 11:41

Цитата(Feller @  11.2.2014,  11:16 ) Есть DataSet который заполняет контрол , после того как он его заполнил я хочу достучаться к нему из своей формы form2? Private row1 As form1.PersonsDataset.PERSONSRow = form1.PersonsDataset.PERSONSRow  К приватному полю можно достучаться через свойство с более широкой областью видимости. Либо создай метод, который будет присваивать ему значение, переданное аргументом.

Автор: Feller 12.2.2014, 12:04

ок, спасибо Добавлено через 1 минуту и 10 секунд Как можно скопировать данные из колонки в DataSet в переменую?

Автор: diadiavova 12.2.2014, 12:14

Цитата(Feller @  12.2.2014,  13:04 ) Как можно скопировать данные из колонки в DataSet в переменую?  А что такое колонка в DataSet? Там есть таблицы, связи и всякое такое, а колонки есть уже у самих таблиц. В таблице просто обойди строки и получи из каждой значение нужной ячейки.

Автор: Timeformiaa 11.6.2014, 14:48

Добрый вечер!Недавно начал изучать программирование,в частности, тему "переменные".Создал программу,но работает она неверно.(например при значении Text1 =2, Text 2 равен 3)Найдите ошибку,заранее спасибо)

Автор: Timeformiaa 11.6.2014, 14:51

Получается "3",а должно  быть "4"

Автор: diadiavova 11.6.2014, 23:19

Цитата(Timeformiaa @  11.6.2014,  15:51 ) Получается "3",а должно  быть "4"  Почему 4? У тебя Х инициируется со значением 2, далее к значению TextBox1 ты прибавляешь X*0.5, но 2*0.5 равно единице и таким образом во втором текстбоксе должно быть значение на 1 больше чем в первом. Так что все правильно. И судя по скриншотам ты пишешь на старом бейсике, так что тебе сюда http://forum.vingrad.ru/forum/vb-visual-basic.html

Автор: Timeformiaa 25.6.2014, 13:39

Не понял.Значение tex1 = 2. X= значение text1 +2,то есть равно 4. Потом умножаем x * 0,5 и прибавляем опять значение text 1.Должно получится 4.Что не так?Порядок действий?

Автор: diadiavova 25.6.2014, 14:49

Timeformiaa, Х у тебя инициируется при загрузке формы и своё значение нигде не меняет. В момент инициализации текстовое поле пусто, что при приведении его значения к числовому типу интерпретируется как ноль. Таким образом значение Х у тебя всегда будет 2.

Автор: Timeformiaa 25.6.2014, 15:05

Хорошо,а можно ли сделать так,как я хотел бы?То есть чтобы число ,введенное в text1 влияло на X?

Автор: diadiavova 25.6.2014, 22:02

Присваивай значение переменной в обработчике события изменения текста текстбокса. Если ты работаешь с VB6(об этом сужу из картинки), то код будет таким (насколько я знаю) Код Private Sub TextBox1_Change()     If IsNumeric(TextBox1.Text) Then        X = Val(TextBox1.Text)     End If End Sub

Автор: Timeformiaa 28.6.2014, 13:22

Спасибо.а что обозначает эта строка:If IsNumeric(TextBox1.Text) Then?

Автор: diadiavova 28.6.2014, 13:31

Проверка, являются ли введённые символы числом. Если не нужно - можешь убрать, работать будет и без этого.

Автор: Timur95 12.11.2014, 12:01

Всем привет!  Прошу, уважаемые форумчане, объясните кто-нибудь разницу между итератором и методом рекуренции. Если у кого-нибудь есть пример написания какого-нибудь кода и тем и другим способами, прошу выложить, мне это очень поможет.  Заранее благодарю и жду Вашей помощи!

Автор: diadiavova 12.11.2014, 21:03

Цитата(Timur95 @  12.11.2014,  12:01 ) методом рекуренции Что это?

Автор: Timur95 14.11.2014, 11:55

Цитата(diadiavova @ 12.11.2014,  21:03) Цитата(Timur95 @  12.11.2014,  12:01 ) методом рекуренции Что это?  Прошу прощения,  метод рекурсии  Так уж случилось. Совсем новичок в программировании, нужно понять принцип, а то я не могу записать формулу Фибоначчи, формулы Тейлора для синусов и косинусов, ряды Фаррея.  Если кто может объяснить, прошу, помогите. Через неделю сессия

Автор: diadiavova 15.11.2014, 01:00

Я так понимаю, под итераторами тоже подразумевались не итераторы, а итеративный метод вычисления. Ну собственно различия в том, что итеративный метод реализуется через циклы, а рекурсивный - через самовызов функции с другим аргументом. В обоих случаях достигается повторение операции нужное количество раз, только в рекурсии управление вычислением достигается через аргумент функции, а в цикле - с помощью изменения значения какой-то переменной(как правило, хотя есть варианты).  В качестве примера покажу вычисление числа Фибоначчи обоими способами Код    Function Fib_iter(n As Integer) As Integer         Select Case n             Case Is < 1                 Throw New ArgumentException("Аргумент должен быть больше нуля.")             Case 1                 Return 0             Case 2, 3                 Return 1             Case Else                 Dim minus1 = 1                 Dim minus2 = 1                 Dim result As Integer                 For i = 4 To n                     result = minus1 + minus2                     minus1 = minus2                     minus2 = result                 Next                 Return result         End Select     End Function     Function Fib_rec(n As Integer) As Integer         Select Case n             Case Is < 1                 Throw New ArgumentException("Аргумент должен быть больше нуля.")             Case 1                 Return 0             Case 2, 3                 Return 1             Case Else                 Return Fib_rec(n - 1) + Fib_rec(n - 2)         End Select     End Function В обеих функциях сначала проверяется аргумент и если он меньше единицы - инициируется исключение, а для первых трех значений результат не вычисляется, а возвращается напрямую. Для всех остальных значений рекурсивная функция складывает результаты самовызова для предыдущих двух значений и таким образом мы получаем запись вычислительной логики близкую к математическому определению этого ряда. В итеративной функции результаты предыдущих вычислений запоминаются в двух переменных и в каждой итерации они складываются, после чего им присваиваются новые значения, актуальные для следующей итерации. Для понимания рекурсивный метод вроде проще, но тут имеет место бешеный расход ресурсов. Подробнее читай здесь https://ru.wikibooks.org/wiki/%D0%A0%D0%B5%D0%BA%D1%83%D1%80%D1%81%D0%B8%D1%8F#.D0.A7.D0.B8.D1.81.D0.BB.D0.B0_.D0.A4.D0.B8.D0.B1.D0.BE.D0.BD.D0.B0.D1.87.D1.87.D0.B8

Автор: Timur95 15.11.2014, 16:47

Цитата(diadiavova @ 15.11.2014,  01:00) Я так понимаю, под итераторами тоже подразумевались не итераторы, а итеративный метод вычисления. Ну собственно различия в том, что итеративный метод реализуется через циклы, а рекурсивный - через самовызов функции с другим аргументом. В обоих случаях достигается повторение операции нужное количество раз, только в рекурсии управление вычислением достигается через аргумент функции, а в цикле - с помощью изменения значения какой-то переменной(как правило, хотя есть варианты).  В качестве примера покажу вычисление числа Фибоначчи обоими способами Код    Function Fib_iter(n As Integer) As Integer         Select Case n             Case Is < 1                 Throw New ArgumentException("Аргумент должен быть больше нуля.")             Case 1                 Return 0             Case 2, 3                 Return 1             Case Else                 Dim minus1 = 1                 Dim minus2 = 1                 Dim result As Integer                 For i = 4 To n                     result = minus1 + minus2                     minus1 = minus2                     minus2 = result                 Next                 Return result         End Select     End Function     Function Fib_rec(n As Integer) As Integer         Select Case n             Case Is < 1                 Throw New ArgumentException("Аргумент должен быть больше нуля.")             Case 1                 Return 0             Case 2, 3                 Return 1             Case Else                 Return Fib_rec(n - 1) + Fib_rec(n - 2)         End Select     End Function В обеих функциях сначала проверяется аргумент и если он меньше единицы - инициируется исключение, а для первых трех значений результат не вычисляется, а возвращается напрямую. Для всех остальных значений рекурсивная функция складывает результаты самовызова для предыдущих двух значений и таким образом мы получаем запись вычислительной логики близкую к математическому определению этого ряда. В итеративной функции результаты предыдущих вычислений запоминаются в двух переменных и в каждой итерации они складываются, после чего им присваиваются новые значения, актуальные для следующей итерации. Для понимания рекурсивный метод вроде проще, но тут имеет место бешеный расход ресурсов. Подробнее читай здесь https://ru.wikibooks.org/wiki/%D0%A0%D0%B5%D0%BA%D1%83%D1%80%D1%81%D0%B8%D1%8F#.D0.A7.D0.B8.D1.81.D0.BB.D0.B0_.D0.A4.D0.B8.D0.B1.D0.BE.D0.BD.D0.B0.D1.87.D1.87.D0.B8 Огромное спасибо. Ответ Ваш очень развёрнутый, мне конечно не совсем понятны некоторые вещи, но я вижу, что здесь всё "разложено по полочкам". Ещё раз благодарю, пару дней почитаю ваше сообщение, думаю вопрос разницы между процессами отпадёт.  Спасибо!

Автор: kshyms 25.9.2015, 07:21

проект отлажен код рабочий на vb.net D.Workbooks.open("expert.xlsx") 'Открываем книгу по указанному адресу для чтения из другого проекта тоже код отлажен  скомпилированный  .exe тоже работает с  expert.xlsx только если поместить его в папку c:документы     oBook.SaveAs("Book22.xls") файл сохраняется почему-то в папке c:документы хотя проект в диске e .exe  Вопрос как указать путь или изменить настройки ide что бы .exe   работал с файлами, которые находятся в одной папке не зависимо от месторасположения всего проекта Добавлено через 13 минут и 5 секунд проект отлажен код рабочий на vb.net D.Workbooks.open("expert.xlsx") 'Открываем книгу по указанному адресу для чтения из другого проекта тоже код отлажен скомпилированный .exe тоже работает с expert.xlsx только если поместить его в папку c:документы   oBook.SaveAs("Book22.xls")  файл сохраняется почему-то в папке c:документы хотя проект в диске e .exe  Вопрос как указать путь или изменить настройки ide что бы .exe  работал с файлами, которые находятся в одной папке не зависимо от месторасположения всего проекта?  При работе с devc++ такой проблемы у меня не возникало. В чем проблема?

Автор: diadiavova 7.11.2015, 23:26

kshyms, по идее, если верить документации, то сохраняться файл должен в той же папке, в которой находится исходный файл.  https://msdn.microsoft.com/ru-ru/library/microsoft.office.tools.excel.workbook.saveas.aspx  Если это не подходит, то что мешает указывать полный путь к файлу?

Автор: virus3003 15.6.2017, 18:39

Помогите пожалуйста со скриптом vbs нужен зацикленный скрипт запуска и закрытия программы 1 Запускается Calc.exe 2 Скрипт стоит в ожидании 60 сек 3 Закрывает Calc.exe 4 И снова по циклу запускает Calc.exe

Автор: diadiavova 15.6.2017, 19:39

virus3003, vbs - это совсем другой язык.

Автор: virus3003 15.6.2017, 21:56

diadiavova,  Ну скрипт как он называется с расширением vbscript

Автор: diadiavova 15.6.2017, 22:15

virus3003, язык, которому посвящён этот раздел называется VB.Net. Это другой язык.

Автор: virus3003 15.6.2017, 22:19

понял извените

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)