-
wpf – TaskFactory新UI创建
所属栏目：[百科] 日期：2020-12-17 热度：166
如何使用TaskFactory创建新的UI元素？当我尝试时,我收到以下错误： 调用线程必须是STA,因为许多UI组件都需要这个. 示例代码 Dim txtBoxList as new List(Of TextBox)Sub StartThread() Dim TS As TaskScheduler = TaskScheduler.FromCurrentSynchronizationC[详细]
-
Ef数据GroupBy多字段查询Vb.net与c#参考
所属栏目：[百科] 日期：2020-12-17 热度：103
Dim g = lst.Data.GroupBy( Function (T) New With { T.mName,T.mUnit,T.mPrice }).Select( Function (t) New With { .mName = t.Key.mName,.mPrice = t.Key.mPrice,.mUnit = t.Key.mUnit,.mValue = t.Sum( Function (i) i.mValue) }) ? c#版本对照 { var g[详细]
-
vb.net 读写ini文件示例
所属栏目：[百科] 日期：2020-12-17 热度：181
Imports System.Collections.GenericImports System.TextImports System.Runtime.InteropServicesPublic Class IniFile Public filePath As String DllImport("kernel32") _ Private Shared Function WritePrivateProfileString(ByVal section As String,ByV[详细]
-
vb.net 结构体 byte数组相互转换
所属栏目：[百科] 日期：2020-12-17 热度：122
1 Imports System.Runtime.InteropServices 2 Imports System.IO 3 4 Module MdSftData 5 6 ‘ 256 bytes 7 Public Structure sSftDataHeader 8 ‘ 96 bytes 9 MarshalAs(UnmanagedType.ByValArray,SizeConst:= 8 ) 10 Dim bDate() As Byte 11 MarshalAs(Unm[详细]
-
VB Format函数
所属栏目：[百科] 日期：2020-12-17 热度：132
Format[$] ( expr [,fmt ] ) format 返回变体型 format$ 强制返回为文本 -------------------------------- 数字类型的格式化 -------------------------------- ??? 固定格式参数： ??? General Number 普通数字，如可以用来去掉千位分隔号 ??? format$("10[详细]
-
vb6/ASP FORMAT MM/DD/YYYY
所属栏目：[百科] 日期：2020-12-17 热度：92
VB6或者ASP?格式化时间为 MM/dd/yyyy 格式，竟然没有好的办法， Format 或者FormatDateTime 竟然结果和系统设置的区域语言的日期和时间格式相关。意思是尽管你用诸如?Format(Now,"MM/dd/yyyy")，如果系统的设置格式区域语言的日期和时间格式分隔符是"-",那他[详细]
-
VB.net 捕获项目全局异常
所属栏目：[百科] 日期：2020-12-17 热度：86
在项目中添加如下代码：新建窗口来显示异常信息。 Namespace My ‘ 全局错误处理，新的解决方案直接添加本ApplicationEvents.vb 到工程即可 ‘ 添加后还需要一个From用来显示错误。如果到这步还不会则需要先打好基础啦 ‘ =================================[详细]
-
实现用VB.Net/(C#)开发K/3 BOS 插件的真正可行方法
所属栏目：[百科] 日期：2020-12-17 热度：89
转了这一篇文章，原来一直想用C#做k3的插件开发，vb没有C#用的爽呀，这篇文章写与2011年，看来我以前没有认真去找这个方法呀。 https://blog.csdn.net/chzjxgd/article/details/6176325 金蝶 K3 BOS 的插件官方是用 VB6 编写的，如果 ? 能用 .Net 下的语言工[详细]
-
vb，wps，excel 分裂
所属栏目：[百科] 日期：2020-12-17 热度：99
Sub 分列() ‘ 以空格为分隔符，连续空格只算1个。对所选中的单元格进行处理 Dim m As Range,tmpStr As String ,s As String Dim x As Integer ,y As Integer ,subStr As String If MsgBox ( " 确定要分列处理吗？请确定分列的数据会覆盖它后面的单元格！ "[详细]
-
VB文件 hash 查看器
所属栏目：[百科] 日期：2020-12-17 热度：122
? 窗体代码 1 Private Sub Text1_OLEDragDrop(Data As DataObject,Effect As Long ,Button As Integer ,Shift As Integer ,X As Single ,Y As Single ) 2 Dim path As String ,hash As String 3 For Each file In Data.Files 4 path = path file 5 Next 6 If[详细]
-
VB.NET MYSQL DataGridView 增删改查（INSERT,SELECT,UPDATE,DEL
所属栏目：[百科] 日期：2020-12-17 热度：200
? Imports MySql.Data.MySqlClientPublic Class Form1 ‘ GLOBAL DECLARATIONS Dim conString As String = "Server=localhost;Database=net2;Uid=root;Pwd=123456;" Dim con As New MySqlConnection(conString) Dim cmd As MySqlCommand Dim adapter As MySq[详细]
-
VB.NET 使用ADODB連接資料庫滙出到EXCEL
所属栏目：[百科] 日期：2020-12-17 热度：60
‘導入命名空間 Imports ADODB Imports Microsoft.Office.Interop ? Private Sub A1() Dim Sql As String Dim Cnn As New ADODB.Connection Dim Rs As New ADODB.Recordset Dim S As String ? S = "Provider=OraOLEDB.Oracle.1;Password=密碼;Persist Securi[详细]
-
vb.net 多线程哂
所属栏目：[百科] 日期：2020-12-17 热度：149
Imports System.IO Imports System.Threading Imports System.Diagnostics Public Class Form1 Dim A(254) As String ? ?Function ping(ByVal IP As Integer) As String Dim IPAddress As String IPAddress = "10.0.2." IP If My.Computer.Network.Ping(IPAd[详细]
-
VB等待进程结束
所属栏目：[百科] 日期：2020-12-17 热度：51
VB运行EXE程序，并等待其运行结束 参考：https://blog.csdn.net/useway/article/details/5494084 Private Declare Function WaitForSingleObject Lib " kernel32 " ( ByVal hHandle As Long , ByVal dwMilliseconds As Long ) As Long Private Declare Funct[详细]
-
vb中去掉string数组的一部分
所属栏目：[百科] 日期：2020-12-17 热度：54
今天碰到一个问题，登陆的时候，如果不需要验证手机号为空，则不去验证手机号 因为登陆的时候所有的验证信息都存放在一个数组里 Dim CheckUserInfo() As String ={UserBirthday,SecEmail,UserMob,?UserSex,RealNameFirst,RealName,CheckCardID,CheckCardType[详细]
-
VB如何连接SQL Server数据库
所属栏目：[百科] 日期：2020-12-17 热度：173
在VB6.0中，数据访问接口有三种： 1、ActiveX数据对象（ADO） 2、远程数据对象（RDO） 3、数据访问对象（DAO） 1.使用ADO（ActiveX Data Objec，ActiveX数据对象）连接SQL Server 1）使用ADO控件连接 使用ADO控件的ConnectionString属性就可以连接SQL Server[详细]
-
Visual Basic 6.0（VB6.0）详细安装过程
所属栏目：[百科] 日期：2020-12-17 热度：162
注：大家如果没有VB6.0的安装文件，可自行百度一下下载，一般文件大小在200M左右的均为完整版的软件，可以使用。 ? 特别提示：安装此软件的时候最好退出360杀毒软件（包括360安全卫士，电脑管家等，如果电脑上有这些软件的话），因为现如今的360杀毒软件直接[详细]
-
使用VB6读取数据库资源并发送邮件（原创）
所属栏目：[百科] 日期：2020-12-17 热度：147
Private?Sub?Form_Load() Call?conndb End?Sub Private?Function?conndb() Dim?cn?As?New?ADODB.Connection Dim?rs?As?New?ADODB.Recordset Dim?strCn,?sql?As?String Dim?db_host?As?String Dim?db_user?As?String Dim?db_pass?As?String Dim?db_data?As?St[详细]
-
POS VB
所属栏目：[百科] 日期：2020-12-17 热度：137
? PPSM06S70:??Add??moddate? EDITSPRINTJOB:??MAX(TO_CHAR(ETRN.MODDATE,?‘yyyy/mm/dd/HH24:MI?AM‘))?ACTUAL_SHIPDATE ? 4.Test?Scenario (1)?：Query?SQL Test?DN:8016578337 SELECT?CTRN.TKCTID?TRUCK_ID, ???????CTRN.TKCTID?TKNO, ???????MAX(HVSP.CO[详细]
-
vb.net 水晶報表CrystalReport 動態設定資料庫來源
所属栏目：[百科] 日期：2020-12-17 热度：102
? 沒有出現CrystalReportViewer時,須安裝CRforVS_13_0. 新增1個數據集,新增1個數據表,添加二列,列名要和資料庫名一樣. 修改目標Framework 修改app.config, startup 改成startup useLegacyV2RuntimeActivationPolicy ="true" ?CrystalReport1.rpt增加數據庫專[详细]
-
VB.net 与线程
所属栏目：[百科] 日期：2020-12-17 热度：171
Imports System.Threading Imports System Public Class Form1 Dim th1,th2 As Thread Public Sub Method1() Dim i As Integer For i = 1 To 100 If Me .Label1.BackColor = Color.DarkRed Then Me .Label1.BackColor = Color.Gold End If System.Threading.[详细]
-
vb.net Process32First和Module32First
所属栏目：[百科] 日期：2020-12-17 热度：129
Friend Const PROCESS_ALL_ACCESS = H1F0FFF = 2035711 Friend Const PROCESS_VM_READ = H10 Friend Const PROCESS_VM_WRITE = H20 Friend Const PAGE_READONLY = H2 Friend Const PAGE_READWRITE = H4 Friend Const TH32CS_SNAPHEAPLIST = H1 ‘在快照中包[详细]
-
vb.net 分割byte数组的方法SplitBytes
所属栏目：[百科] 日期：2020-12-17 热度：119
以下代码随手写的 并没有大量测试 效率也有待提升 如果需要C#的请自行转换 Function SplitBytes(Data As Byte (),Delimiter As Byte ()) As List( Of Byte ()) Dim i = 0 Dim List As New List( Of Byte ()) Dim bytes As New List( Of Byte ) Dim dl = Deli[详细]
-
VB.NET连接SQL_Server实例
所属栏目：[百科] 日期：2020-12-17 热度：57
Imports System.Data.SqlClientPublic Class Form1 REM Public conn1 As SqlConnection = New SqlConnection("server=.; Integrated Security=False;Initial Catalog= mydatabase1; User ID= sa;password") Dim cn As SqlConnection Dim da As SqlDataAdapte[详细]
-
逆向_Easy_vb
所属栏目：[百科] 日期：2020-12-17 热度：178
题目链接：https://ctf.bugku.com/challenges 题解： 打开题目 下载文件得到.exe文件 先看看是否加壳，可以用 PEID 软件查看【PEID下载链接：https://pan.baidu.com/s/1cuVgoUW_6fKSihezRN3NqA】 可以看到文件未被加壳，因此用 Ollydbg软件 查看文件汇编代码[详细]
