Вопросы по тегу: vb.net

(15)

.NET Core не знает о Windows 1252, как исправить?

Эта программа прекрасно работает при компиляции для .NET 4, но не при компиляции для .NET Core. Я понимаю ошибку о том, что кодировка не поддерживается, но не знаю, как это исправить.Public Class Program Public Shared Function Main(ByVal args As String()) As Integer System.Text.Encoding.GetEncoding(1252) End Function End Class
J

Joshua

6 лет назад

Ответов: 2

C # против VB.Net - неявные преобразования

Этот вопрос касается неявных преобразований в VB.Net и C #. Следующий код C # не компилируется:class Program { static void Foo(string s) { Console.WriteLine(s); } static void Main(string[] args) { Foo(3); // Cannot convert from int to string } } Причина в том, что Foo ожидает параметр строкового типа, но ему задано int. Решение - заменить Foo (3) на Foo (3.ToString ()). Отлично.Теперь тот же код, созданный в VB.Net: * 100002*Module Module1 Sub Foo(s As String) Console.WriteLine(s) End Sub Sub Main() Foo(5) End Sub End Module Это компилируется и отлично работает!Вопрос: Почему VB.Net позволяет это и есть ли здесь принципиальная разница между VB.Net и C #?
j

jensa

6 лет назад

Ответов: 1

Visual Studio: как читать настройки в Visual Basic

Я щелкнул правой кнопкой мыши по названию проекта и добавил новый пункт под названием «Настройки приложения». Сначала его имя - «Настройки1.settings», я изменил его на «Настройки.settings». Ниже приведен снимок экрана: Пытался прочитать настройки в своей форме. Но есть ошибка. Мои вопросы: 1. Почему я не могу прочитать значения в Settings.settings через "My.Settings.test"?Любая помощь приветствуется.
B

BAE

6 лет назад

Ответов: 1

Как с помощью SQL подсчитать количество результатов запроса?

Я новичок в SQL и кодировании в целом.У меня есть SQL-запрос, который отлично работает. Все, что я хочу сейчас сделать, это вернуть количество строк из этого результата запроса.Текущий SQL-запрос:ВЫБРАТЬ Progress.UserID, Вопросы. [Местоположение вопроса], Вопросы. [Правильный ответ], Вопросы. [Ложный ответ 1], Вопросы. [Ложный ответ 2], Вопросы. [Ложный ответ 3] ОТ Вопросы ВНУТРЕННЕЕ СОЕДИНЕНИЕ Прогресс ВКЛ. Вопросы. [QuestionID] = Прогресс. [QuestionID] ГДЕ (((Progress.UserID) = 1) И ((Progress.Status) <> «Верно») ); Я знаю, что мне нужно использовать SELECT COUNT(*) ... хотя не совсем уверен, как интегрировать его в запрос.Затем я собираюсь использовать OLEDB для возврата результата в приложение VB Windows Form.Любая помощь приветствуется.Спасибо! Джо
J

Joe Jones

6 лет назад

Ответов: 3

Надстройка VB.Net и Outlook - обработчик событий "Отправить и получить все"

Мой вопрос касается Visual Studio 2015, VB.Net с .Net 4.5, Outlook 2010 и «добавочной» разработки.Я хочу обработать событие, когда пользователь нажимает кнопку «Отправить и получить все».I can handle the event on a simple "Send Mail" click in the mail window message (Application_ItemSend(...)) but I don't know how to handle the event where "Send & Receive All" is clicked by a user.Я хочу, чтобы он работал так же, как в этом коммерческом плагине.
X

Xavier

6 лет назад

Ответов: 1

VB.NET Показать прогресс расшифровки файла?

Я использую этот код для шифрования / дешифрования файлов:Public Shared Sub encryptordecryptfile(ByVal strinputfile As String, _ ByVal stroutputfile As String, _ ByVal bytkey() As Byte, _ ByVal bytiv() As Byte, _ ByVal direction As CryptoAction) Try fsInput = New System.IO.FileStream(strinputfile, FileMode.Open, FileAccess.Read) fsOutput = New System.IO.FileStream(stroutputfile, FileMode.OpenOrCreate, FileAccess.Write) fsOutput.SetLength(0) Dim bytbuffer(4096) As Byte Dim lngbytesprocessed As Long = 0 Dim lngfilelength As Long = fsInput.Length Dim intbytesincurrentblock As Integer Dim cscryptostream As CryptoStream Dim csprijndael As New System.Security.Cryptography.RijndaelManaged Select Case direction Case CryptoAction.ActionEncrypt cscryptostream = New CryptoStream(fsOutput, _ csprijndael.CreateEncryptor(bytkey, bytiv), _ CryptoStreamMode.Write) Case CryptoAction.ActionDecrypt cscryptostream = New CryptoStream(fsOutput, _ csprijndael.CreateDecryptor(bytkey, bytiv), _ CryptoStreamMode.Write) End Select While lngbytesprocessed Мне нужно получить процент выполнения этого процесса в виде целого числа. Я собираюсь использовать фонового рабочего, поэтому мне нужно вызвать этот подпрограмм из фонового рабочего и иметь возможность постоянно обновлять индикатор выполнения, которому отчитывается фоновый рабочий. Это возможно? Заранее спасибо.
J

Justin G

6 лет назад

Ответов: 1

Вставить в базу данных доступа не работает

Я использую Visual Studio 2015, язык Visual Basic. Я хочу ВСТАВИТЬ В базу данных Access имя пользователя (в коде «Utilizador»). Это код, который у меня есть:Try Dim nconnect As New OleDbConnection("Provider=Microsoft.ACE.OleDb.12.0;" & "Data Source =|DataDirectory|S_Campo.accdb") nconnect.Open() Dim ncmd As OleDbCommand = nconnect.CreateCommand() ncmd.CommandText = "INSERT INTO Utilizador (Nome) VALUES (@p1)" ncmd.Parameters.AddWithValue("@1", Me.TextBox5.Text) 'Nome Do Utilizador ncmd.ExecuteNonQuery() nconnect.Close() MsgBox("Utilizador lançado com êxito", MsgBoxStyle.OkOnly, "Informação") Catch ex As Exception MessageBox.Show(Err.Description) End Try Он не возвращает мне сообщения об ошибке, но данные не отправляются в базу данных. Однако UPDATE и DELETE работают нормально, используя «Параметры».Может что с ним не так?
F

FerPessoa

6 лет назад

Ответов: 1

vb.net - Сохранять метку по центру, даже если текст изменен?

Итак, у меня есть метка, которая изначально находится в центре ... назовем ее полем. Не в центре любого элемента управления, а в центре небольшого прямоугольного поля в нижней части моей формы. (Это поле не элемент управления, а часть фонового изображения формы) Теперь, когда метка меняет длину текста, ширина метки увеличивается и увеличивается по направлению к левой стороне, однако я хочу, чтобы она оставалась в центре этого «поля».В основном я хочу воспроизвести тот же эффект, как если бы вы выравнивали текст по центру в richtextbox, но вместо этого с меткой.Могу я что-нибудь сделать для этого?
D

Dominik H

6 лет назад

Ответов: 1

Enter передает фокус другому текстовому полю, но работает неправильно

Ну, мне нужна помощь, я создал свой собственный класс textboxex, унаследовав поле textbox, и теперь столкнулся с проблемой...Я сделал так, что когда текстбокс получает фокус, его цвет меняется, а когда он выходит из фокуса, его цвет снова становится белым. Но у меня нет никаких проблем с этим.Я также пытаюсь добавить событие ввода, например, когда я нажимаю клавишу ввода/возврата, фокус переходит к следующему текстовому полю...здесь мой код..Public Class textboxex Inherits TextBox Private Sub TextBoxEx_Enter(sender As Object, e As EventArgs) Handles Me.Enter'This is for color and works fine Me.BackColor = Color.Cyan End Sub Private Sub TextBoxEx_Leave(sender As Object, e As EventArgs) Handles Me.Leave'This is for color and works fine Me.BackColor = Color.White End Sub 'Problem is with this below... Private Sub TextBoxEx_Return(sender As Object, e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown If e.KeyCode = Keys.Enter Then SendKeys.Send("{TAB}") End If End Sub End Class Сейчас у меня небольшая проблема с textboxex_return sub...Проблема в том, что когда я запускаю форму, фокус переходит непосредственно на кнопку, присутствующую в форме.При отладке я обнаружил, что каждое текстовое поле автоматически принимает клавишу ввода/возврата, когда оно получает фокус..Я пытался обрабатывать различные события, такие как keydown, keypress, textchanged и т.д., но не могу этого сделать...Я не знаю, возможно ли это, или я должен писать это "e.keycode = keys.enter" в каждом под...Plz help plox ...!
b

bonny

6 лет назад

Ответов: 2

WPF: Получение целевого объекта из производного класса привязки

Я вывел класс под названием "ConfExtension" из Binding. В двух словах это выглядит так:Public Class ConfExtension Inherits Binding Public Sub New(path As String) MyBase.New(path) ... End Sub ... Public Property DefaultValue As Object End Class В XAML я использую этот класс следующим образом: Как я могу получить доступ к целевому объекту привязки (в данном случае к окну) из метода в моем классе?EDIT: Из моего исследования это кажется чем-то средним между сложным и невозможным. Итак, вот чего я в конечном итоге хочу добиться:Расширение ConfExtension должно стать простым способом хранения и получения настроек для элементов управления WPF. Путь привязки является ключом хранения, и пока все работает нормально: ... Это позволяет мне хранить и извлекать конфигурацию окна, сохраняя все значения в виде строк. Но дальше по визуальному дереву я могу захотеть повторно использовать те же ключи (на самом деле я даже не буду знать, какие ключи были использованы) для некоторых других конфигурационных свойств-связей. Вот почему мне пришла в голову идея создать несколько вложенных свойств для целевого элемента, которые помогут мне определить (и в конечном итоге сгруппировать) настройки для соответствующего элемента. ... (Класс с привязанными свойствами называется Conf, а класс, который работает с привязкой, называется ConfExtension, оба находятся в пространстве имен "imCC", таким образом, в разметке используется одинаковая нотация "imCC:Conf")Моя идея заключалась в том, чтобы двигаться вверх по визуальному дереву от элемента, который получает привязку "конфигурации", взять следующий "Conf.ID" и использовать его в качестве префикса (или аналогичным образом) для идентификации соответствующих настроек.Если окажется, что я не могу получить Цель только этим методом, есть ли другие способы добиться этого? Я наткнулся на BindingGroupName - это хлебная крошка, по которой нужно идти?
t

themightylc

6 лет назад

Ответов: 1

Программная установка службы без печати отладочной информации

Я использую этот сниппет для программной установки службы:C#:public static void InstallService(string filepath, string svcName, string displayName = "", string description = "", ServiceStartMode startType = ServiceStartMode.Automatic, ServiceAccount account = ServiceAccount.LocalSystem, string username = "", string password = "") { using (ServiceProcessInstaller installer = new ServiceProcessInstaller()) { using (ServiceInstaller svc = new ServiceInstaller()) { InstallContext context = new InstallContext("", { string.Format("/assemblypath={0}", filepath) }); installer.Account = account; installer.Username = username; installer.Password = password; svc.Context = context; svc.DisplayName = displayName; svc.Description = description; svc.ServiceName = svcName; svc.StartType = startType; svc.Parent = installer; ListDictionary state = new ListDictionary(); svc.Install(state); state.Clear(); } } } //======================================================= //Service provided by Telerik (www.telerik.com) //======================================================= Vb.Net (оригинал):Public Shared Sub InstallService(ByVal filepath As String, ByVal svcName As String, Optional ByVal displayName As String = "", Optional ByVal description As String = "", Optional ByVal startType As ServiceStartMode = ServiceStartMode.Automatic, Optional ByVal account As ServiceAccount = ServiceAccount.LocalSystem, Optional ByVal username As String = "", Optional ByVal password As String = "") Using installer As New ServiceProcessInstaller Using svc As New ServiceInstaller Dim context As New InstallContext("", {String.Format("/assemblypath={0}", filepath)}) installer.Account = account installer.Username = username installer.Password = password svc.Context = context svc.DisplayName = displayName svc.Description = description svc.ServiceName = svcName svc.StartType = startType svc.Parent = installer Dim state As New ListDictionary svc.Install(state) state.Clear() End Using End Using End Sub Проблема в том, что при вызове этого метода статус установки записывается в отладочную консоль приложения: Установка службы... Сервис был успешно установлен. Создание источника EventLog в журнале Application... Я не уверен, каким образом член этих классов запрашивает вывод этой информации, просто возможно его можно отключить от этой нежелательной многословности?
E

ElektroStudios

6 лет назад

Ответов: 1

Программа установки приложений Vb.Net не обновляет базу данных Access

Как сказано в заголовке, программа установки моего приложения vb.net не обновляет правильную базу данных, приложение работает нормально при отладке в visual studio, однако при установке база данных в каталоге данных не обновляется до последней версии.Я использую "Microsoft Visual Studio Installer Projects" для создания установщика со всеми необходимыми файлами, вот как я его настроил:Папка приложения: ИзображениеРабочий стол пользователя: У меня просто ярлык на .exe в папке приложенияПрограммное меню пользователя: У меня есть папка с названием приложения, а внутри нее ярлык на .exe в папке приложения.При установке на компьютер база данных не самая последняя, и я знаю это, потому что когда я пытаюсь использовать кнопку с запросом вставки, приложение выдает ошибку, не позволяя найти столбец "ID_User", который я только недавно добавил.Строка подключения к базе данных:Dim conn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\Account.mdb") Более подробная информация:Я использовал мастер развертывания visual studio для создания установочных файлов вместо установщика проектов Visual Studio, и приложение работает нормально, поэтому я предполагаю, что проблема только в другом установщике и его настройке, но я не могу понять, в чем проблема, я всегда использовал его и никогда не испытывал проблем до последнего выпуска.Редактировать:Я попробовал добавить базу данных в папку приложения в установщике проекта Visual Studio и установить свойство базы данных, чтобы всегда копировать ее в выходной каталог, но все равно безуспешно.
D

Daniele S.

год назад

Ответов: 1

Как переместить каретку на последний индекс в TextBox или RichTextBox в VB.NET?

У меня есть TextBox или RichTextBoxКак переместить каретку на последний индекс в TextBox или RichTextBox?
H

Hedi

год назад

Ответов: 1

Ссылка на другую ячейку в той же строке с вычисленным минимальным значением в столбце данных

Используя VB, я использовал следующую строку для успешного поиска минимального значения в определенном столбце (скажем, в столбце 5, где все значения двойные) в таблице данных: Dim test as double test = datatable.Compute("min(sourcecolumn)", "") Теперь я хотел бы ссылаться на значения в других столбцах (допустим, в столбце 2) в строке, содержащей минимальное значение столбца.Любая помощь будет очень признательна, так как я не могу разобраться в этом! Спасибо
C

CharlieK

год назад

Ответов: 2

Почему мой combobox не отображает данные после выбора

У меня есть 2 комбобокса, которые связаны между собой, В родительском комбобоксе RoomT Type после выбора значения он не позволяет мне повторно выбрать другое значение. Также, если кто-нибудь будет так любезен и подскажет мне, как я могу использовать первичный ключ выбранного значения из комбобокса в SQL-запросах. Вот что у меня получилось : Private Sub FrmBookings_Load(sender As Object, e As EventArgs) Handles MyBase.Load Using con1 As New SQLiteConnection(ConStr) Using com As New SQLiteCommand("Select CustomerID, fname FROM customers Left JOIN BOOKING ON booking.BCustomerID = customers.customerID where booking.BookingID is null", con1) con1.Open() Dim dt As New DataTable() dt.Load(com.ExecuteReader) cmbCustomerData.DataSource = dt cmbCustomerData.DisplayMember = "fname" cmbCustomerData.ValueMember = "CustomerID" End Using End Using Using con1 As New SQLiteConnection(ConStr) Using da As New SQLiteDataAdapter("Select RoomTypeName, RoomTypeID FROM RoomType", con1) Dim dt As New DataTable() da.Fill(dt) cmbRoomType.Items.Clear() For Each row As DataRow In dt.Rows cmbRoomType.Items.Add(row("roomTypeName").ToString) Next End Using End Using End Sub Private Sub CmbRoomType_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cmbRoomType.SelectedIndexChanged 'очистить dt cmbRoomType.Items.Clear() Using con1 As New SQLiteConnection(ConStr) Using da As New SQLiteDataAdapter("Select RoomNumber, RoomID FROM Rooms INNER JOIN RoomType ON roomtype.roomtypeid = rooms.rRoomTypeID WHERE roomtype.roomtypename LIKE '" & cmbRoomType.Text & "'", con1) Dim dt As New DataTable() da.Fill(dt) cmbRoomNumber.Items.Clear() For Each AB As DataRow In dt.Rows cmbRoomNumber.Items.Add(AB("RoomNumber").ToString())) Next End Using End Using End Sub
M

Milosz Laksa

год назад

Ответов: 1

2022 WebDevInsider