Как получить значения выделенной строки из DataGrid-а в TextBox - Visual Basic .NET

  1. Доброго времени суток! Пытаюсь получить значение выделенной строки в ТекстБокс . Для этого написал такую строку.vb.net1 2 3 Private Sub DataGridView1_CellMouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellMouseEventArgs) Handles DataGridView1.CellMouseClick         Me.TextBox1.Text = Me.DataGridView1.SelectedRows.ToString     End SubВ ТекстБоксе отображается System.Windows.Forms.DataGridViewSelectedRowCollection Подскажите, пожалуйста, в чем проблема?Добавлено через 48 минут Решил таким образом. vb.net1 2 3 Dim i As String         i = Me.DataGridView1.CurrentRow.Index                Me.TextBox1.Text = Me.DataGridView1.Rows(i).Cells(2).Value & " " & Me.DataGridView1.Rows(i).Cells(3).Value & " " & Me.DataGridView1.Rows(i).Cells(4).Value


textual

Код:

TextBox1.Text = ""
For Each row In DataGridView1.SelectedRows
    TextBox1.AppendText("|")
    For Each cell In row.Cells
        TextBox1.AppendText(cell.Value & " |")
    Next
    TextBox1.AppendText(vbCrLf)
Next


Похожие ответы
  1. безуспешно пробую решить простую задачу: целые переменные s = 1 to 7, a = 1 to 5, b = 1 to 9 Нужно найти значения переменных, которые будут соответствовать условиям a < s b < s s = a + b последний кодvb.net1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 Sub Main()         For s As Integer = 1 To 7             For a As Integer = 1 To 5                 If a < s Then                     a = a                 End If                 For b As Integer = 1 To 9                     If b < s Then                         b = b                     End If                     If s  = a + b Then                         Console.Write("number is:", s, a, b)                         Console.ReadLine()                     End If                   Next             Next         Next         Console.ReadLine()     End Subфизическое решение примерно следующее s = 2 a = 1 b = 1 s = 3 a = 1 b = 2 a =2 b = 1 и т.д. Пожалуйста подтолкните в нужном направлении Спасибо

  1. Доброго времени суток! Прошу помощи с задачей про массивы: Даны массивы А(5) и В(5), состоящие из положительных элементов. Найти сумму среднего геометрического значения элементов массива А и среднего арифметического значения элементов массива В.

  1. Как вывести каждое значения из кавычек из файл XML на VB2010 Имеется такой файл xxx-f.xml из видеорегистратора в нем содержимое:XML1 2 3 4 5 6 7 8 Как вывести каждое значения из кавычек из файл XML , типа speed=20 longitude=49.17257333333334 latitude=56.79480166666667 valid=1 time=12.12.12. 20:00:00 speed=20 longitude=49.17257333333334 latitude=56.79480166666667 valid=1 time=12.12.12. 20:00:01 speed=20 longitude=49.17257333333334 latitude=56.79480166666667 valid=1 time=12.12.12. 20:00:02 и каждое значение для работы с ним

  1. Измучался! Понятно - не ас, хоть в VB.Net не первый день. Но уже двое суток бьюсь и никак! Помогите: Есть dll написанная в Delphi (с частями исходников), пытаюсь из неё получать информацию и получаю вечные - "PInvoke не возвращает Variable" или разнообразие типа того... В общем вызываю функции а результат вечно никак... Вот отрывок кода из Delphi:Delphi1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 Library NativeDll;   uses   SysUtils,   Windows;   type     PImageSet = ^TImageSet;   TImageSet = packed record     Size     : Word;     FileName : Array[0..200] of Char;   end;     MsgSet = ^TMsgSet;   TMsgSet = packed record     Size     : Word;     Msg      : Array[0..200] of Char;   end;   function GetImage( Card: DWORD; Info: PImageSet ): Integer; stdcall; export; begin   Result := 1;   if Card = 5 then begin     Result := 0;     Info^.FileName := 'BOOBLE.BMP';   end; end;   function GetMessage( Card: DWORD; Info: MsgSet ): Integer; stdcall; export; begin   Result := 1;   if Card in [1..100] then begin     Result := 0;     Info^.Msg := 'Привет Васек!';   end; end;   exports   GetMessage,   GetImage;   begin end.Вызываю примерно так:vb.net1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 Imports System Imports System.Text Imports System.Runtime.InteropServices   Public Class NativeDelphi       Public Structure PImageSet         Dim Size As Int16         Dim FFile() As Char ' пробовал всякое     End Structure       Public Structure MsgSet         Dim Size As Int16         Dim Foto() As Char ' пробовал всякое     End Structure       _     Public Shared Function GetImage(ByRef Results As PImageSet) As Integer     End Function       ' и пробовал так       _     Public Shared Function GetMessage( ByRef Result As MsgSet)     End Function   End ClassОшибки да и только. Уж вынес весь мозг. Перепробовал всякое. В инете толковых преобразований Delphi->VB.NET (особенно по поводу packed record и его понимания в VB.NEt, а задом чую - что собака там залежалась) не видать. В общем если не решу - сопьюсь братцы... (и так литров 15 пива выпил в поиске да кучу сайтов (по сиг с каждого) покурил) Пожалейте здоровие мое! PS: На счет маршалить - тут я честно говоря лох. Мож чего не так понимаю. Ясно одно - данные из дельфей приходят пакетом вполне упорядоченной структуры и размером, а как его жевать в VB.NET мне пока непонятно. И есть еще один, для меня пока совсем непонятный тип - PChar (да не, про него я начитался вдоволь, просто непонятно - как его правильно принять из DLL Дельфей в VB.NET, учитывая, что он упакованный) В общем плиз HELP! Заранее ПАСИБО!

  1. Друзья, спасите! Заблудился в трех соснах: GaphicsPath, Region и Intersect. Вот пример задачи: Кликните здесь для просмотра всего текста vb.net1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25     Private Sub Panel1_Paint(sender As Object, e As PaintEventArgs) Handles Panel1.Paint         'исходные фигуры - прямоугольник rect и замкнутый контур grpth         Dim rect As New Rectangle(70, 120, 160, 120)         Dim pts As Point() = {New Point(100, 100), New Point(100, 200), New Point(200, 200), New Point(200, 300),                               New Point(300, 300), New Point(300, 100), New Point(100, 100)}           Dim grpth As New GraphicsPath(pts, {0, 1, 1, 1, 1, 1, 1})         '==========         Dim reg As New Region(grpth)         'часть прямоугольника внутри контура         reg.Intersect(rect)         e.Graphics.FillRegion(Brushes.Yellow, reg)         'отодвинем результирующий регион для наглядности         Dim mx As New Matrix         mx.Translate(250, 0)         reg.Transform(mx)         e.Graphics.FillRegion(Brushes.Yellow, reg)         'сверху рисуем исходные фигуры         e.Graphics.DrawPath(Pens.Blue, grpth)         e.Graphics.DrawRectangle(Pens.Red, rect)         'что дальше???         Dim newGraphicsPath As New GraphicsPath '= reg.???????         End Sub и картинка: Кликните здесь для просмотра всего текста Надо получить GraphicsPath желтого Region. Либо сразу GraphicsPath общей области красной и синей фигуры.

  1. Привет! Всю мужскую половину этого замечательного форума с праздником! Парни, возник вопрос. Нужна помощь. Есть две строки: cybErforum cyberfoRum Как более быстро и правильно можно получить индексы отличающихся символов подстроки? В примере выше, это индексы 3 и 7. Как их получить?

  1. Т.к. я не профессионал, прошу сразу не закидывать палками )) Проблема следующая, грубо говоря на форме преславутые зависимые ComboBox, первый заполняется при загрузке формы - был подключен не из кода, а визардом, второй должен заполняться в зависимости от выбора в первом следующим кодом:vb.net1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21         Dim connString As String         Dim oledbCnn As OleDbConnection         Dim oledbCmd As OleDbCommand         Dim sql As String         connString = ("Data Source=""E:\BD\Reglam.accdb"";user " & "id=Admin;Provider=""Microsoft.Jet.OLEDB.4.0"";")         sql = "SELECT NAIM_SUBYEKT from SUBYEKTY WHERE NUMBER_FO=('" & ComboBox1.SelectedValue & "')"         oledbCnn = New OleDbConnection(connString)         Try             oledbCnn.Open()             oledbCmd = New OleDbCommand(sql, oledbCnn)             Dim oledbReader As OleDbDataReader = oledbCmd.ExecuteReader()             ComboBox2.Items.Clear()             While oledbReader.Read                 ComboBox2.Items.Add(oledbReader.Item(1))             End While             oledbReader.Close()             oledbCmd.Dispose()             oledbCnn.Close()         Catch ex As Exception             MessageBox.Show(ComboBox1.SelectedValue)         End TryНо этого не происходит, т.е. он к базе не может подключиться, на этот случай есть MessageBox.Show(ComboBox1.SelectedValue), подскажите в чем дело пожалуйста...

  1. Добрый день, коллеги! Возникла странная проблема. Загружаю изображение, закрашиваю на нем пиксель, сохраняю в файл, затем вновь загружаю это изображение и считываю этот пиксель, программа выдает совершенно другое значение... например, если я заношу цвет такvb.net1 2 3  Dim bm As Bitmap = Image.FromFile(f)  bm.SetPixel(500, 500, Color.FromArgb(255, 2, 2, 2))  bm.Save(ListBox1.SelectedItem & "\Image.jpg")то при считыванииvb.net1 2  Dim bm As Bitmap = Image.FromFile(f)  msgbox(bm.GetPixel(500, 500).toString)программа выдаёт цвет (255, 50, 19, 0) при этом, если сохранять в PNG формате, то все работает корректно...vb.net1   bm.Save("\Image.png", System.Drawing.Imaging.ImageFormat.Png)отсюда делаю вывод, что проблема именно в том, что при сохранении, у изображения меняются цветовые показатели, в зависимости от формата.. Кто подскажет, как правильно сохранять файл? jpg выбрал т.к. это максимально легкий и сжатый формат. форматы типа bmp и png не подходят, там размер получается раз в 20-40 больше...

  1. Здравствуйте, я бы хотел реализовать открытие программы(в автозагрузки windows) в фоновом виде.Windows Batch file1 myapp.exe -hideНе знаю как получить параметр(argument).vb.net1 2 3 4 5  Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load         If argument = "hide" Then             Me.Hide()         End If     End SubПожалуйста, помогите решить данную задачу заранее Спасибо!

  1. Из символов одного текста с помощью строковых функций о операций конкатенация получить другой текст. Из «индивидуальность» получить «диво» и «лавина» Преобразовать текст: Из теста «каков поп, таков и приход» получить текст «каков приход, таков и поп»