Replace your code fragment.With wdDoc j = 0 For Each FmFld In .FormFields j = j + 1 If FmFld.Type = wdFieldFormCheckBox Then WkSht.Cells(i, j) = Format(FmFld.CheckBox.Value, "Yes/No") ' Нужное значение Else WkSht.Cells(i, j) = FmFld.Range.Text End If Next End With

Doing a similar C# program with textbox on the OBD. The code looks like VB, I think it'll help. There's a two-field discipline and publishing place.string discipline = Convert.ToString(comboBox1.Text); string publishing = Convert.ToString(textBox6.Text); cls.Conn.Open(); SqlCommand iCommand = cls.Conn.CreateCommand(); iCommand.CommandText = "INSERT INTO " + "Books (Дисциплины, Publication) + VALUES (@discipline, @publishing) iCommand.Parameters.Add("@discipline", SqlDbType.NChar, 100); iCommand.Parameters. Value = discipline; iCommand.Parameters.Add("@publishing", SqlDbType.NChar, 30); iCommand.Parameters[@publishing]. Value = publishing;In this case, cls is the main class of the annex and Conn is the variable connection to the database. They're described:static public SqlConnection Conn;Although you can put the last paragraph down. In your case, it would be easier to apply the OBD fields to the variable and put them in the OBD separate flow as shown in me.

Thank you. http://pamirych.ru/%D0%BF%D0%BE%D0%BB%D1%83%D1%87%D0%B5%D0%BD%D0%B8%D0%B5-%D0%B0%D0%BA%D1%82%D0%B8%D0%B2%D0%BD%D0%BE%D0%B3%D0%BE-%D0%BE%D0%BA%D0%BD%D0%B0-%D0%B4%D1%80%D1%83%D0%B3%D0%BE%D0%B3%D0%BE-%D0%BF%D1%80%D0%B8-2/ which receives a shuttle of an active window (in this case, "Information of the store" and "Introduction of the event"):<DllImport("user32.dll", CharSet:=CharSet.Auto, ExactSpelling:=True)> Public Shared Function GetForegroundWindow() As IntPtr End Function <DllImport("user32.dll")> _ Private Shared Function GetWindowText(ByVal hWnd As Integer, ByVal text As StringBuilder, ByVal count As Integer) As Integer End Function Private Sub GetActiveWindow() Const nChars As Integer = 256 Dim handle As Integer = 0 Dim Buff As New StringBuilder(nChars) handle = GetForegroundWindow() If GetWindowText(handle, Buff, nChars) &gt; 0 Then 'Выводит тайтл именно текущего активного окна, т.е. "Введение события" Debug.Print(Buff.ToString()) End If End Sub

Set oShell = CreateObject("WSCript.shell") result = oShell.Run("do someThing", 1, True) if result ... // ваша логика обработки We're saying that we're going to do something, one is opportune, the compliance window regime, True, we're saying that we're gonna wait for the team to do it if you put the wrong team in, and your team is going to go and the vb program goes further without waiting for the result. https://msdn.microsoft.com/en-us/library/d5fk67ky(v=vs.84).aspx

It's worth asking. https://msdn.microsoft.com/ru-ru/library/bb531253.aspx This line should look like:translate.ResultSelector = Function(x) x.Element("text").Value

The SystemParametersInfo API can be used to produce and produce Windows parameters that are usually manually installed from the work desk by the control panel. https://support.microsoft.com/ru-ru/kb/97142 Declaring the function for changing the rims:Private Declare Function SystemParametersInfo Lib "user32.dll" Alias "SystemParametersInfoA" (ByVal uAction As Integer, ByVal uParam As Integer, ByVal lpvParam As String, ByVal fuWinIni As Integer) As Integer Let's announce the constants:Private Const SETDESKWALLPAPER = &H14 Private Const UPDATEINIFILE = &H1 We call a function with the necessary parameters:SystemParametersInfo(SETDESKWALLPAPER, 0, "ПутьКФайлуИзображения", UPDATEINIFILE) https://stackoverflow.com/questions/2278234/change-desktop-background-using-vb-net

Probably the problem is, x - number of floating commas after it was established h♪ Accordingly, for each cycle it will accumulate a certain decomposition error h♪It ends up like it doesn't matter. 4♪ 4.0000000000001 (e.g. more) b♪Try it. epsilon = h/2 ... Do While x - epsilon <= b

Okay, look, at NET, there's a mechanized exception--- it's an opportunity, anywhere in the program, to throw a mistake upstairs. The calling "upstair" code can expect that mistake (sometime to process it and go on) or not (and then the app just falls down).The mechanism of the blackouts consists of several steps:The very moment of exception is "first chance" (first phase in Russian translation) - it's called because it's a real first chance to find out. It wasn't that long. Default--- the cooler catches this chance, writes it in the log, but doesn't do anything.Exemptions up the grid. If the exception was caught somewhere (Try/Catch) - the enslavement code is called and it's all over.If no one wanted to process the exception, then there's a second chance. The pan's stopping. If there's no sweet, the app just dies.The conduct of the holder in the first step is governed by straight lines in the Debug / Exceptions or Debug / Windows / Exception Settings for each type of exception. Your mistake in the slogan means that somewhere in the 16th line on the 132nd position of some XAML file was a mistake, Mr. XAML threw it away, and somewhere above the code, this error came down. I mean, first chance was, "second chance" wasn't.Options to do this:I don't think you have a lot of XAML files. It's probably some kind of / missing picture or something.Change designs for type exemptions System.Windows.Markup.XamlParseException - and see exactly where it falls.

No, you can't.We can try to work with VB6 through expansion. https://visualstudiogallery.msdn.microsoft.com/00cc8ff8-beb3-4f08-8aa6-59eefba3bb40 but no one guarantees full support and efficiency.

Use it. http://msdn.microsoft.com/ru-ru/library/system.windows.forms.htmldocument.getelementbyid.aspx#Y522 e.g.:If (WebBrowser1.Document IsNot Nothing) Then Dim SomeElem As HtmlElement = WebBrowser1.Document.GetElementById(SomeID) If (SomeElem IsNot Nothing) Then SomeElem.InnerText() = "Some" End If End If

Thread.Sleep(100); - It doesn't help because 100 here is 100 ms, that is 1/10 seconds. Increase it, stop it more.

Here's an example for browser Fant: var serviceJs = PhantomJSDriverService.CreateDefaultService(); serviceJs.HideCommandPromptWindow = true; Instance = new PhantomJSDriver(serviceJs, options, TimeSpan.FromSeconds(180)); the others will be the same.For chromium and VB:Dim service As OpenQA.Selenium.Chrome.ChromeDriverService = OpenQA.Selenium.Chrome.ChromeDriverService.CreateDefaultService() service.HideCommandPromptWindow = True Dim chromeOptions As New OpenQA.Selenium.Chrome.ChromeOptions() Dim driver As IWebDriver = New ChromeDriver(service, chromeOptions) Get out of here: https://stackoverflow.com/questions/25112574/selenium-with-chrome-shows-console-window-of-chrome-driver-get-page-complete-e

If implied Вставка -> Фигуры -> Стрелка вправо (for example):' Обращаемся к массиву всех фигур на странице и выбираем нужную ActiveSheet.Shapes.Range(Array("Right Arrow 1")).Select With Selection.ShapeRange.Fill .Visible = msoTrue ' Здесь задается нужная цветовая схема .ForeColor.ObjectThemeColor = msoThemeColorAccent5 .ForeColor.TintAndShade = 0 .ForeColor.Brightness = 0 .Transparency = 0 .Solid End With Either use the macro footage and watch things change.

Set xlApp = CreateObject("Excel.Application") Set xlBook = xlApp.Workbooks.Add Set xlSheet = xlBook.Worksheets(1) xlApp.Application.Visible = True dim a(2) dim b(2) dim c(2) a(1) = 1 a(2) = 1 b(1) = a(2) + a(1) b(2) = b(1) + a(2) c(1) = b(2) + b(1) c(2) = c(1) + b(2) for shag=1 to 2 xlSheet.Cells(shag, 1).Value = A(shag) xlSheet.Cells(shag, 2).Value = B(shag) xlSheet.Cells(shag, 3).Value = C(shag) next

Example https://msdn.microsoft.com/ru-ru/library/5z06z1kb.aspx For number As Double = 2 To 0 Step -0.25 Debug.Write(number.ToString & " ") Next Debug.WriteLine("")

Somehow:var MyOLEObject: T{что_там_возвращает_AddOLEObject}; ... MyOLEObject := WordApplication1.Selection.InlineShapes.AddOLEObject(LClassType, LFileName, LLinkToFile, LDisplaySaIcon, EmptyParam, EmptyParam, EmptyParam, EmptyParam); MyOLEObject.Height := 20; MyOLEObject.Width := 20;

You're doing wrong.UserControllike any visual element, it's not meant to be a show. Serylize the content, not the performance.Your annex should separate the data from their visual presentation. You can ignore that principle and mix everything into a pile of things, but problems like this will arise all the time. Do the right thing.

DataGridView1.Item(i, 0).value = arr(i)You have RowCount=1, followed by. 0and change the indices to the locations, it must be. Reference https://msdn.microsoft.com/ru-ru/library/ms158656(v=vs.110).aspx Public Property Item ( columnIndex As Integer, rowIndex As Integer ) As DataGridViewCell

If the mass is 0, then to m-1 and n-1

I'm sorry, the code was lost somewhere, but here's the:Access database address Names OleDbHere. reference http://msdn.microsoft.com/ru-ru/library/system.data.oledb.aspx - each The parameter will find an example for VB;Format sql of request can be found http://citforum.ru/programming/32less/les34.shtml Couple years ago, working with Access from Visual Basic 2005. I don't think things have changed.