Mean_ing-优快云博客

原创 vb 截取固定字符串之间的字符

描述: 从一个字符串中截取到固定两个字符串之间的字符例子：截取假如今天是星期四：5分这句话中的 5 字 Dim s As String Dim l As Long Dim szText As String s = TextBox2.Text l = InStr(s, "星期四") ‘获取...

2020-04-09 13:54:43 2899

原创循环后 ArrayList查询出来的数据有重复的处理

for (String wardCode : WardCodes){ String tempSql=sql+"......."; tempSql+=" ....." + wardCode + "'..."; List<实体类> tempList = createNativeQuery(实体类.class, tempSql); Set set = ...

2019-12-04 17:36:58 416

原创 VB 字符串和Integer类型比较

dim a as string=textbox1.textdim score as integer =cdbl(val(a.text)) '重点是这里if score > 12 then .....end if

2019-07-16 14:52:44 874

原创 VB 点击checkbox后自动排序

Public Class Form1 Private Function OrderCheckBox(ByVal panelName As String) As String Dim i As Integer = 0 Dim szText As String = String.Empty Dim test As Panel = Me.Panel...

2019-06-25 10:07:34 364

原创 oracle 时间转码

sql语句中转码: to_char(record_time,'yyyy-mm-dd hh24:mi:ss') as record_time代码中转码：SimpleDateFormat sdf = new SimpleDateFormat("yyyy-MM-dd HH:mm:ss");String time=sdf.format(index.getRecordTime());...

2018-11-22 11:17:57 230

原创 vb replace方法

输入框内输入数字后自动加 .0操作dim XTextBox1 as XTextBox1 =me.findcontrol("XTextBox1")XTextBox1.text=XTextBox1.text.replace(".0","") + ".0"

2018-10-24 15:33:05 2794

原创 VB 计算TextBox内的和（无按钮）

1、TextBox的KeyUp事件2、Val() 过滤字符 Private Sub TextBox6_KeyUp(sender As Object, e As KeyEventArgs) Handles TextBox6.KeyUp If e.KeyCode = Keys.L Then TextBox6.Text = Val(TextBo...

2018-08-13 14:08:26 804

原创 VB Textbox内字不能超过5个

使用Textbox的KeyPress事件。 Private Sub TextBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox1.KeyPress If e.KeyChar.ToString = Keys.Back.ToString Then e.Handle...

2018-08-09 16:27:16 587

原创 VB 保存信息为xml到本地，读取已保存的信息

Imports System.TextImports System.XmlPublic Class Form2 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click If FolderBrowserDialog1.ShowDialog = DialogRe...

2018-08-07 13:54:21 4188

原创 VB菜鸟初学

Public Class Form1 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim a As String a = TextBox1.Text If a = "你好" Then MsgBox("...

2018-08-03 11:18:42 10408 1

转载 100以内素数和

int sum = 2; for (int i = 3; i { bool flag = false; for (int j = 2; j if (i % j == 0) {

2017-09-27 09:39:50 1072

Mean_ing的博客