VB
laocooon523857886
这个作者很懒,什么都没留下…
展开
-
VB 语言 菱形打印
【代码】VB 语言 菱形打印。原创 2022-11-28 20:37:56 · 464 阅读 · 0 评论 -
VBA 向Word插入图片
VBA 向Word插入图片。原创 2022-09-08 08:59:02 · 3330 阅读 · 0 评论 -
VBnet 查找数据库导入到电子表格
【代码】VBnet 查找数据库导入到电子表格。原创 2022-08-23 19:16:34 · 223 阅读 · 0 评论 -
vb.net 画曲线
vb.net 画曲线原创 2022-07-31 08:27:32 · 510 阅读 · 0 评论 -
加载图片的pic修改内容后的保存。
Imports System.Drawing.Drawing2DPublic Class Form1 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load pic.Load(System.IO.Directory.GetCurrentDirectory() + "\2.png") End Sub Private Sub lblColorBoard_Cli...原创 2022-05-28 17:07:38 · 113 阅读 · 0 评论 -
VB 代码一次性全读出来。
Function read_data_string(ByVal FileNameStr As String) As String '------读取指定路径数据 On Error Resume Next Dim FileNum As Long, bitstr() As Byte: FileNum = FreeFile Open FileNameStr For Binary As #FileNum ReDim bitstr(1 To LOF(FileNum)) ...原创 2022-05-04 19:50:23 · 379 阅读 · 0 评论 -
VB 判断某数是否是素数。
public function Prime(n as interger) as boolean dim i as interger for i = 2 to n-1 if n mod i = 0 then Prime = false exit function end if next i Prime = trueend function原创 2022-04-21 13:15:35 · 832 阅读 · 0 评论 -
VB 判断两条线段是否相交
' 自定义点结构体Private Type Point x As Double y As DoubleEnd Type' 自定义矩形结构体Private Type Rectangle xMin As Double xMax As Double yMin As Double yMax As DoubleEnd Type' 计算两矢量的叉积Private Function ChaJi(p As Point, q As Point) ...原创 2022-04-09 17:26:21 · 610 阅读 · 0 评论 -
VB 生成迷宫器代码。
Option ExplicitConst L = 24Const WALL = 0Const ROUTE = 1Const PLAYER = 2Dim maze(24, 24) As IntegerDim Rank As IntegerPrivate Sub Command1_Click()Command1.Enabled = FalseDim n Rank = 4 n = init(maze) maze(n, L) = ROUTE Dim i, j...原创 2021-12-18 17:12:01 · 285 阅读 · 0 评论 -
vbnet 代码。
根据身高与体重 处理 散点图Public Class Form1 'このプログラムで使用する変数を登録(宣言)しておく Dim D(,) As Double = {{183.2, 76.8}, {182.4, 79.5}, {179.4, 87.2}, {177.4, 74.6}, {180.4, 77.5}, {173.2, 69}, {182.1, 81.8}, {174.7, 80.5}, {180.7, 80.2}, {185.8, 86.5}, {181.3, 77.7},原创 2021-12-17 21:01:48 · 415 阅读 · 0 评论 -
VB 正弦和求导后的效果图
Option ExplicitConst PI = 3.1415926Private Sub Command1_Click()Me.Scale (-2 * PI, 1)-(2 * PI, -1)Line (-2 * PI, 0)-(2 * PI, 0)Line (0, -1)-(0, 1)Dim ii As SingleDim y As Single, y1 As SingleFor ii = -2 * PI To 2 * PI Step 0.001y = Sin(ii) .原创 2021-12-14 15:28:26 · 328 阅读 · 0 评论 -
VB 贪吃蛇
描述给定一个金币地图,地图上的数值代表金币的数量。此时地图上方有一只贪吃蛇从任意一点进入,每经过一处就会吞噬此处的金币。最终从地图下方出去。贪吃蛇每次只会向下走,且不能走直线,也就是说,如果它在吞噬了地图中第 a 行第 b 列的 金币后,下一次只能走向第 a + 1行的第 c列(c != b)求:该贪吃蛇能吞噬的最大金币数是多少。输入一个 m x n 的地图 a1 ≤ m, n≤ 30001 ≤a[i][j]≤ 100输出输出一个整数,表示该贪吃蛇能吞噬的最大...原创 2021-12-02 22:34:59 · 1526 阅读 · 0 评论 -
VB 里的 可变参数
public sub multi_more(ParamArray nums()) s=0 for each x in nums s=s+x^2 next x print send sub原创 2021-09-25 19:10:49 · 237 阅读 · 0 评论 -
vb 万年历 代码
VERSION 5.00Begin VB.Form Form2 Caption = "万年历" ClientHeight = 7035 ClientLeft = 4485 ClientTop = 3675 ClientWidth = 8025 LinkTopic = "Form2" MaxButton = 0 'False ScaleHeight .原创 2021-09-08 12:00:27 · 1075 阅读 · 0 评论 -
VB 读写ini的代码
Attribute VB_Name = "Module1"Option ExplicitPrivate Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString.原创 2021-09-08 11:58:43 · 220 阅读 · 0 评论 -
VBA操作CAD画300个大小不同颜色不同的圆圈
Private Sub Form_Load()On Error Resume NextSet acadapp = GetObject(, "autocad.application")If Err Then Err.Clear Set acadapp = CreateObject("autocad.application") If Err Then MsgBox ("不能运行AutoCad,请检查是否安装了CAD") Exit Sub...原创 2021-08-14 19:38:01 · 995 阅读 · 0 评论 -
vbnet 实现AutoCAD自定义菜单和工具栏
Imports SystemImports System.Collections.GenericImports System.Collections.SpecializedImports System.LinqImports System.TextImports Autodesk.AutoCAD.ApplicationServicesImports Autodesk.AutoCAD.CustomizationImports Autodesk.AutoCAD.DatabaseServices.原创 2021-08-06 15:40:44 · 1261 阅读 · 3 评论 -
字符串的加密
''' <summary> ''' 字符串加密 ''' </summary> ''' <param name="s">要加密的字符串</param> ''' <param name="n">加密移n位,正为右移,负为左移</param> ''' <returns>加密后的字符串</returns> Function Encryption(s As Str...原创 2021-08-05 08:49:24 · 425 阅读 · 0 评论 -
vbnet 显示当下 年月日 时分秒
Sub Main() Dim Str1 As String = "" Str1 = "今天是 " Str1 &= Year(Now) & "年" Str1 &= Month(Now) & "月" Str1 &= Day(Now) & "日" & vbCrLf Str1 &= "现在是北京时间 " & Hour(Now) & ":".原创 2021-08-05 07:09:32 · 1805 阅读 · 0 评论 -
vbnet 关于数据库 实现 列查询与多列查询 结果窗体控件的代码
文本框1内容发生变化,列表框列出相应数据。单击列表框项,进入文本框2'Reference namespaceImports System.Data.SqlClientImports System.Windows.FormsPublic Class frm_Poa_Invontory Dim MyMeans As DataClass.MyMeans = New DataClass.MyMeans Dim Allsql As String Public Shared M.原创 2021-08-04 17:46:34 · 511 阅读 · 0 评论 -
vbnet 实现装饰器效果
Imports SystemImports System.Collections.GenericImports System.LinqImports System.TextImports System.Threading.TasksImports System.Runtime.Remoting.ContextsImports System.Runtime.Remoting.MessagingModule Module1 Sub Main() Dim sc = Ne.原创 2021-08-04 01:52:37 · 128 阅读 · 0 评论 -
VB.net 调用添加图层实现AutoCad增加图层的代码效果
'’调用添加图层的指令 <CommandMethod("AddLayer")> Public Sub AddLayer() Dim db As Database = HostApplicationServices.WorkingDatabase Dim doc As Document = Application.DocumentManager.MdiActiveDocument ...原创 2021-08-03 14:23:54 · 648 阅读 · 0 评论 -
VBnet CAD二次开发 指定方式选择筛选指定对象
Dim typeValue As TypedValue() = New TypedValue(0) {} typeValue.SetValue(New TypedValue(0, "Dimension"), 0) Dim sSet As SelectionSet = SelectSsGet("SelectAll", Nothing, typeValue) <Extension()> Public Function S...原创 2021-08-02 21:41:29 · 1155 阅读 · 0 评论 -
VBnet 返回指定块的实体id
''' <summary> ''' 返回指定块名的实体id ''' </summary> ''' <param name="db">数据库对象</param> ''' <param name="blockName">块名</param> ''' <returns>返回指定块名的实体id</returns> ...原创 2021-08-02 19:17:43 · 106 阅读 · 0 评论 -
vb.net Linq 给出两个表求差值
Public Class Form1 Dim rnd As New Random Public Sub New() InitializeComponent() Randomize() gridControl1.DataSource = CreateDataInfo(10) End Sub Private Function CreateDataInfo(ByVal Row As Integer) As DataTable...原创 2021-08-02 00:07:11 · 354 阅读 · 0 评论 -
vbnet 获取当前.NET程序名称
''' <summary> ''' 获取当前.NET程序名称 ''' </summary> ''' <returns>返回当前.NET程序所在的目录</returns> Function GetCurrentName() As String Dim moudle = System.Reflection.Assembly.GetExecutingAssembly().GetModules()(0) ...原创 2021-07-31 09:23:49 · 737 阅读 · 0 评论 -
vbnet 产生 uniqueidentifier类型数据
Private Function NewId() Dim sGUID As String sGUID = System.Guid.NewGuid.ToString() Return sGUID End Function原创 2021-07-28 12:30:23 · 177 阅读 · 0 评论 -
vb.net 创建要标注的图形
Imports SystemImports System.Collections.GenericImports Autodesk.AutoCAD.DatabaseServicesImports Autodesk.AutoCAD.GeometryImports Autodesk.AutoCAD.RuntimeImports AutoCAD转.DotNetARXNamespace Dimensions Public Class Dimensions <Command.原创 2021-07-26 20:03:27 · 263 阅读 · 0 评论 -
vbnet 有关对接口的继承的实现
Imports Autodesk.AutoCAD.ApplicationServicesImports Autodesk.AutoCAD.EditorInputImports Autodesk.AutoCAD.Runtime<Assembly: ExtensionApplication(GetType(InitAndOpt.InitClass))><Assembly: CommandClass(GetType(InitAndOpt.OptimizeClass))>Nam.原创 2021-07-26 18:27:48 · 271 阅读 · 0 评论 -
vbnet 判断字符串是否为空或空白
''' <summary> ''' 判断字符串是否为空或空白 ''' </summary> ''' <param name="value">字符串</param> ''' <returns>如果字符串为空或空白,返回true,否则返回false</returns> <Extension()> Function I...原创 2021-07-25 21:22:38 · 2520 阅读 · 0 评论 -
vbnet 获取当前.NET程序所在的目录
''' <summary> ''' 获取当前.NET程序所在的目录 ''' </summary> ''' <returns>返回当前.NET程序所在的目录</returns> Function GetCurrentPath() As String Dim moudle = System.Reflection.Assembly.GetExecutingAss...原创 2021-07-25 21:20:47 · 1041 阅读 · 0 评论 -
vbnet 判断字符串是否为整数
''' <summary> ''' 判断字符串是否为整数 ''' </summary> ''' <param name="value">字符串</param> ''' <returns>如果字符串为整数,返回true,否则返回false</returns> <Extension()> Function IsInt...原创 2021-07-25 21:19:34 · 1105 阅读 · 0 评论 -
vb.net 判断字符串是否为数字
''' <summary> ''' 判断字符串是否为数字 ''' </summary> ''' <param name="value">字符串</param> ''' <returns>如果字符串为数字,返回true,否则返回false</returns> <Extension()> Function IsNum...原创 2021-07-25 21:17:22 · 2810 阅读 · 0 评论 -
vbnet 操作CAD 之块的制作
Imports Autodesk.AutoCAD.DatabaseServicesImports Autodesk.AutoCAD.Geometry''' <summary>''' 第一个块''' </summary>Module MyBlockTableRecord Private block1Name1 As String = "Block" Public Property Block1Name As String Get ...原创 2021-07-22 11:02:13 · 605 阅读 · 0 评论 -
vb.net 重新调整数组
Module Module1 Sub Main() Dim arr() As Int32 = {1, 2, 3} PrintArr(arr) arr = DirectCast(ResizeArray(arr, 5), Int32()) PrintArr(arr) arr = DirectCast(ResizeArray(arr, 2), Int32()) PrintArr(arr) .原创 2021-07-20 21:27:51 · 383 阅读 · 0 评论 -
vb.net 窗体加载时让所有 CheckBox 为选中状态的代码
Public Class Form1 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load Dim i As Integer For i = 0 To Me.Controls.Count - 1 If TypeOf Me.Controls(i) Is CheckBox Then ' Dim Ck As Che...原创 2021-07-20 10:48:35 · 1216 阅读 · 0 评论 -
VB 操作AUTOCAD的基础情况
Option ExplicitDim acadapp As AcadApplication '在窗体代码声明段定义acadappDim x()Dim y()Dim count1 As Integer Private Sub Command1_Click()acadapp.Documents.Add '创建新的图形文件End SubPrivate Sub Command2_Click()Dim myfilename As StringMe.CommonDialog1.S.原创 2021-07-20 09:37:43 · 1046 阅读 · 0 评论 -
vb.net 读取其他软件listview控件的内容
Imports SystemImports System.Collections.GenericImports System.ComponentModelImports System.DataImports System.DrawingImports System.LinqImports System.TextImports System.Threading.TasksImports System.Windows.FormsImports System.Runtime.Interop...原创 2021-07-19 10:54:48 · 724 阅读 · 0 评论 -
.net 反射一个应用程序域中的程序集
查找模块:Module:ConsoleApplication1.exe 查找类型:Type:ConsoleApplication1.My.MyApplication 查找成员Method:System.Collections.ObjectModel.ReadOnlyCollection`1[System.String] get_CommandLineArgs() 查找成员Method:System.Deployment.Application.A...原创 2021-07-18 10:31:46 · 161 阅读 · 0 评论 -
VB asc码转2进制后反转,然后再取转ASC码 的加密
Option ExplicitPrivate Sub Command1_Click() Dim s As String Dim s1 As String s = "abcABCdasfdsaf3421432" Text1 = s s1 = TransCoding(s) Text2 = s1 s = s1 s1 = TransCoding(s) Text3 = s1End SubPrivate Function TransCo.原创 2021-07-17 18:43:11 · 280 阅读 · 0 评论