Câu lạc bộ Visual Basic

Khi dùng Console.Clear() trong Wndows Form thì sẽ bị error như trên. Do đó chỉ cần delete cái hàng đó là được rồi, cũng có thể delete các hàng Console khác, chỉ cần giữ lại hàng Upload là đũ rồi.

Download lại cái link trên đi.

Download cái demo lại đi
https://drive.google.com/open?id=1sEBNW ... XZGtrgwvNY

Dùng function SignFromSmartCard thay vì SignWithCert như sau:
pdf.SignWithCert("providerName", "keyContainerName", "password")

Sorry quên upload cái file demo ở trên.
https://drive.google.com/open?id=1ChGFG ... 6T6ORDPfuC

Chạy thử cái demo này coi?

Nó sẽ tạo ra trong file mới (textBox1.Text + "-Signed.pdf").
Trong function SignWithThisCert ở dòng dưới đây để hiển thị chữ ký
signatureAppearance.SetVisibleSignature(New iTextSharp.text.Rectangle(20, 10, 170, 1), 1, "Icsi-Vendor")

Nếu muốn dùng WndProc để bắt các sự kiện cũa ListView không thì có thể tạo một control mới thừa kế từ ListView rồi override WndProc trong class đó. [csharp]using System; using System.Windows.Forms; namespace WindowsFormsApplication1 { public class MyListView : ListView { const int WM_MOUSEMOVE = 0x2...

Muốn vậy phải dùng Ms Access Interop DAO bằng cách add Microsoft.Office.Interop.Access.Dao vào Project's References 1. Tạo một class AdoRecordSet như sau: [vbnet]Imports Microsoft.Office.Interop.Access.Dao Public Class AdoRecordSet Dim dbEngine As DBEngine Dim dbFilePath As String Public Sub New(fil...

Dùng CultureInfo cho application bằng cách viết Thread.CurrentThread.CurrentCulture = New CultureInfo("vi-VN")

Có thể viết như sau:
[vbnet]'Dim dt = dataSet.Tables(0)
Dim dt = dataSet.Tables("datatable_name")
Dim countValue = dt.Compute("Count(column_name)", "column_name IS NOT NULL")[/vbnet]

Xem cái này nè http://www.sqlserver.info/management-st ... tion-time/

Dùng Include Actual Execution Plan (Query-> Actual Execution Plan) => Code 1

Vậy tại sao không dùng sự kiện MouseEnter cho nó dể hơn không? Ví dụ như trong form có TabControl với mấy cái TabPage và có một button thì viết code như sau để add ListView vào cái TabPage hiện tại [csharp]private void button1_Click(object sender, EventArgs e) { CreateListView(tabControl1); } privat...

Viết theo kiểu dưới này thì sẽ không thay đổi nhiều. 1. Tạo thêm class mới MyFunctions [vbnet]Imports System.Reflection Public Class MyFunctions Public Shared Function OpenForm(formName As String, Optional ByVal showForm As Boolean = False) As Form Dim frm = Application.OpenForms().Item(formName) Tr...

Dùng GROUP BY theo bàn là được rồi.

Nếu vậy thì cần phải viết thêm constructor cho nó nữa. Cái này có thể viết bằng nhiều kiểu khác nữa, chẳng qua mình sữ lại theo cách viết cũa chũ post mà thôi. [vbnet]Public Sub New() InitializeComponent() End Sub Public Sub New(frm As Form1) InitializeComponent() frmParent = frm End Sub Private Sub...

Có lẽ cái code add new record ở form2 cũa bạn không đúng đó. Form1 [vbnet]Imports System.Data.OleDb Public Class Form1 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click If Application.OpenForms().OfType(Of Form2).Any Then Application.OpenForms().Item("Form2"...

Với cách viết cũa bạn thì có thể viết lại như sau: Form1: [vbnet] public sub hienluoi() 'code end sub private sub nutthem() If Application.OpenForms().OfType(Of Form2).Any Then Application.OpenForms().Item("Form2").Activate() Else Dim frm = New Form2(Me) frm.Show() End If end sub[/vbnet] F...