<?xml version="1.0" encoding="utf-8" ?><rss version="2.0"><channel><title><![CDATA[Mean_ing的博客]]></title><description><![CDATA[]]></description><link>https://blog.youkuaiyun.com/Mean_ing</link><language>zh-cn</language><generator>https://blog.youkuaiyun.com/</generator><copyright><![CDATA[Copyright &copy; Mean_ing]]></copyright><item><title><![CDATA[vb 截取固定字符串之间的 字符]]></title><link>https://blog.youkuaiyun.com/Mean_ing/article/details/105409125</link><guid>https://blog.youkuaiyun.com/Mean_ing/article/details/105409125</guid><author>Mean_ing</author><pubDate>Thu, 09 Apr 2020 13:54:43 +0800</pubDate><description><![CDATA[描述: 从一个字符串中截取到 固定两个字符串之间的 字符

 例子：截取假如今天是星期四：5分 这句话中的 5 字



    Dim s As String
    Dim l As Long
    Dim szText As String
    s = TextBox2.Text
    l = InStr(s, "星期四") ‘获取...]]></description><category></category></item><item><title><![CDATA[循环后 ArrayList查询出来的数据有重复的处理]]></title><link>https://blog.youkuaiyun.com/Mean_ing/article/details/103389916</link><guid>https://blog.youkuaiyun.com/Mean_ing/article/details/103389916</guid><author>Mean_ing</author><pubDate>Wed, 04 Dec 2019 17:36:58 +0800</pubDate><description><![CDATA[for (String wardCode : WardCodes)
{
    String tempSql=sql+".......";
    tempSql+=" ....." + wardCode + "'...";
    List&lt;实体类&gt;  tempList = createNativeQuery(实体类.class, tempSql);
    Set set = ...]]></description><category></category></item><item><title><![CDATA[VB  字符串和Integer类型比较]]></title><link>https://blog.youkuaiyun.com/Mean_ing/article/details/96136073</link><guid>https://blog.youkuaiyun.com/Mean_ing/article/details/96136073</guid><author>Mean_ing</author><pubDate>Tue, 16 Jul 2019 14:52:44 +0800</pubDate><description><![CDATA[dim a as string=textbox1.text

dim score as integer =cdbl(val(a.text)) '重点是这里

if score &gt; 12 then

 .....

end if
]]></description><category></category></item><item><title><![CDATA[VB  点击checkbox后自动排序]]></title><link>https://blog.youkuaiyun.com/Mean_ing/article/details/93595849</link><guid>https://blog.youkuaiyun.com/Mean_ing/article/details/93595849</guid><author>Mean_ing</author><pubDate>Tue, 25 Jun 2019 10:07:34 +0800</pubDate><description><![CDATA[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...]]></description><category></category></item><item><title><![CDATA[oracle 时间转码]]></title><link>https://blog.youkuaiyun.com/Mean_ing/article/details/84336050</link><guid>https://blog.youkuaiyun.com/Mean_ing/article/details/84336050</guid><author>Mean_ing</author><pubDate>Thu, 22 Nov 2018 11:17:57 +0800</pubDate><description><![CDATA[sql语句中转码: 


to_char(record_time,'yyyy-mm-dd hh24:mi:ss') as record_time

代码中转码：


SimpleDateFormat sdf = new SimpleDateFormat(&quot;yyyy-MM-dd HH:mm:ss&quot;);

String time=sdf.format(index.getRecordTime());

...]]></description><category></category></item><item><title><![CDATA[vb replace方法]]></title><link>https://blog.youkuaiyun.com/Mean_ing/article/details/83344860</link><guid>https://blog.youkuaiyun.com/Mean_ing/article/details/83344860</guid><author>Mean_ing</author><pubDate>Wed, 24 Oct 2018 15:33:05 +0800</pubDate><description><![CDATA[输入框内输入数字后自动加 .0操作

dim XTextBox1 as XTextBox1 =me.findcontrol(&quot;XTextBox1&quot;)

XTextBox1.text=XTextBox1.text.replace(&quot;.0&quot;,&quot;&quot;) + &quot;.0&quot;]]></description><category></category></item><item><title><![CDATA[VB  计算TextBox内的和 （无按钮）]]></title><link>https://blog.youkuaiyun.com/Mean_ing/article/details/81628917</link><guid>https://blog.youkuaiyun.com/Mean_ing/article/details/81628917</guid><author>Mean_ing</author><pubDate>Mon, 13 Aug 2018 14:08:26 +0800</pubDate><description><![CDATA[

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...]]></description><category></category></item><item><title><![CDATA[VB  Textbox内字不能超过5个]]></title><link>https://blog.youkuaiyun.com/Mean_ing/article/details/81539131</link><guid>https://blog.youkuaiyun.com/Mean_ing/article/details/81539131</guid><author>Mean_ing</author><pubDate>Thu, 09 Aug 2018 16:27:16 +0800</pubDate><description><![CDATA[使用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...]]></description><category></category></item><item><title><![CDATA[VB 保存信息为xml到本地，读取已保存的信息]]></title><link>https://blog.youkuaiyun.com/Mean_ing/article/details/81479943</link><guid>https://blog.youkuaiyun.com/Mean_ing/article/details/81479943</guid><author>Mean_ing</author><pubDate>Tue, 07 Aug 2018 13:54:21 +0800</pubDate><description><![CDATA[

Imports System.Text
Imports System.Xml

Public Class Form2
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        If FolderBrowserDialog1.ShowDialog = DialogRe...]]></description><category></category></item><item><title><![CDATA[VB菜鸟初学]]></title><link>https://blog.youkuaiyun.com/Mean_ing/article/details/81384216</link><guid>https://blog.youkuaiyun.com/Mean_ing/article/details/81384216</guid><author>Mean_ing</author><pubDate>Fri, 03 Aug 2018 11:18:42 +0800</pubDate><description><![CDATA[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 = &quot;你好&quot; Then
            MsgBox(&quot;...]]></description><category></category></item><item><title><![CDATA[100以内素数和]]></title><link>https://blog.youkuaiyun.com/Mean_ing/article/details/78109436</link><guid>https://blog.youkuaiyun.com/Mean_ing/article/details/78109436</guid><author>Mean_ing</author><pubDate>Wed, 27 Sep 2017 09:39:50 +0800</pubDate><description><![CDATA[int sum = 2;
            for (int i = 3; i 
            {
                bool flag = false;
                for (int j = 2; j 
                    if (i % j == 0)
                    {
       ]]></description><category></category></item></channel></rss>