- 博客(16)
- 收藏
- 关注
原创 代码示例code
Call AddRow(dgvParaList) : dgvParaList.Rows(dgvParaList.Rows.Count - 1).Cells(0).Value = “辅材设定:assitmat。
2023-10-26 15:37:15
60
原创 模块application
Dim num As Integer = 0 '定义序号初值0,方便后续中间插入值。Public Sub Get_DryFilm_Protect_Sub() 'for次外层。Dim olist As New ArrayList() '存读取的数据库值。Public Sub Get_DryFilm_Protect_Flex() 'for软板层。mainstr = "干膜保护软臂三曝-次外层"mainstr = "干膜保护软臂三曝-内层"id = 0 '重新插入序号。
2023-10-09 16:07:18
62
原创 vb版json格式,参数为datatable
Public Function dt_to_Json(ByVal dtb As DataTable) As String '读table data作为参数传入jss.serialize。
2023-07-03 16:43:15
288
原创 net datagridview 多行上下移动代码
。.net datagridview 多行上下移动代码 Public Sub UpDGV(ByVal dgv As DataGridView) '上移函数 Try Dim dgvsrc As DataGridViewSelectedRowCollection = dgv.SelectedRows '获取选中行的集合 If dgvsrc.Count > 0 Then Dim index_R ...
2022-03-29 17:34:54
593
原创 mousewheel事件
mousewheel事件使用PreFilterMessage方法在调度消息之前将其筛选出来。语法格式如下: Bool PreFilterMessage(refMessage m) 参数说明: m:要调度的消息,无法修改此消息。 返回值:如果筛选消息并禁止消息被调度,则为True;如果允许消息继续到达下一个筛选器或控件,则为False。使用AddMessageFilter方法添加消息筛选器以便在向目标传送Windows消息时监视这些消息。使RemoveMessageFilter 从应用程序的消息泵移除一个消
2021-12-23 18:35:29
465
原创 数据库查询最近当前的一个值
找到最接近补偿的针Dim selstr As String = " select bitsize From tblname ORDER BY ABS(bitsize - " & tmpbit & ") LIMIT 1 "
2021-12-08 18:45:16
110
原创 2021-10-15
@vbFor Each curproce In System.Diagnostics.Process.GetProcesses()If curproce.ProcessName = “AcroRd32” Thencurproce.Kill()End IfNext欢迎使用Markdown编辑器你好! 这是你第一次使用 Markdown编辑器 所展示的欢迎页。如果你想学习如何使用Markdown编辑器, 可以仔细阅读这篇文章,了解一下Markdown的基本语法知识。新的改变我们对Markdow
2021-10-15 13:30:05
48
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人