300128锦富新材教你看懂指数运行周线洗盘.....【点击查看原帖】彬哥看盘：寻找下一个牛股集中营在白酒股的带动之下

名博论市,雨佳跌的有点猛，如再跌我把中庚换嘉实咋样？给点建议呗感谢 ,到年底了少留点资金跌多了补，不跌多平或涨也不耽误事。不知这个办法咋样？请教了[微笑][微笑][微笑] ,今天第一笔单子是我的，别怪我砸盘 ,估计你跑的最快。呵呵 ,旅游业、运输板块，100%跌停 ,这道体是通过换对数吗,不妨这样
6=2^log2 6,
所以2^x<2^log2 6,
因2>1,所以X<log2 6(以2为底6的对数)
一般公式:a=b^logb a,不等式两边取log以2为底的对数,左边得x,右边得log26,public int Find(char[ ] characterSet, int start, int end)
System.Windows.Forms.RichTextBox 的成员
摘要:
在 System.Windows.Forms.RichTextBox 控件的某个文本范围中搜索字符列表的某个字符的第一个实例。
参数:
end: 控件文本中结束搜索的位置。
characterSet: 要搜索的字符数组。
start: 控件文本中开始搜索的位置。
返回值:
控件内找到搜索字符的位置。
异常:
System.ArgumentNullException: characterSet 为空。
System.ArgumentException: start 小于 0 或者大于控件中文本的长度。,查找
Private Sub MenuFind_Click()
Search = InputBox("请输入要查找的字词：")
Dim Where1 '获取需要查找的字符串变量
Text1.SetFocus '文本框获得焦点，以显示所找到的内容Search = InputBox("请输入要查找的字词：")
Where1 = InStr(Text1.Text, Search) '在文本中查找字符串
If Where1 Then
'若找到则设置选定的起始位置并使找到的字符串高亮
Text1.SelStart = Where1 - 1
Text1.SelLength = Len(Search)
' Me.Caption = Where1 '测试用
'否则给出提示
Else: MsgBox "未找到所要查找的字符串。", vbInformation, "提示"
End If
End Sub
查找下一个
Private Sub MenuFindnext_Click()
Dim Where2
Dim StartMe As Integer '查找的起始位置变量
Text1.SetFocus '文本框获得焦点
StartMe = Text1.SelLength + Text1.SelStart + 1 '给变量赋值
Where2 = InStr(StartMe, Text1.Text, Search) '令其从上次找到的地方找起
If Where2 Then
Text1.SelStart = Where2 - 1
Text1.SelLength = Len(Search)
Else: MsgBox "未找到所要查找的字符串.", vbInformation, "提示"
End If
End Sub,工程1.vbp
Type=Exe
Form=Form1.frm
Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#..\..\..\WINDOWS\system32\STDOLE2.TLB#OLE Automation
Object={3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0; RICHTX32.OCX
Startup="Form1"
Command32=""
Name="工程1"
HelpContextID="0"
CompatibleMode="0"
MajorVer=1
MinorVer=0
RevisionVer=0
AutoIncrementVer=0
ServerSupportFiles=0
VersionCompanyName="Flames Focus"
CompilationType=0
OptimizationType=0
FavorPentiumPro(tm)=0
CodeViewDebugInfo=0
NoAliasing=0
BoundsCheck=0
OverflowCheck=0
FlPointCheck=0
FDIVCheck=0
UnroundedFP=0
StartMode=0
Unattended=0
Retained=0
ThreadPerObject=0
MaxNumberOfThreads=1
Form1.frm
VERSION 5.00
Object = "{3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0"; "RICHTX32.OCX"
Begin VB.Form Form1
Caption = "Form1"
ClientHeight = 5790
ClientLeft = 60
ClientTop = 390
ClientWidth = 7035
LinkTopic = "Form1"
ScaleHeight = 5790
ScaleWidth = 7035
StartUpPosition = 3 '窗口缺省
Begin RichTextLib.RichTextBox RichTextBox1
Height = 4575
Left = 120
TabIndex = 2
Top = 120
Width = 6735
_ExtentX = 11880
_ExtentY = 8070
_Version = 393217
Enabled = -1 'True
TextRTF = $"Form1.frx":0000
End
Begin VB.CommandButton Command1
Caption = "查找"
Height = 375
Left = 120
TabIndex = 1
Top = 5160
Width = 855
End
Begin VB.TextBox Text1
Height = 270
Left = 120
TabIndex = 0
Top = 4800
Width = 6735
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub Command1_Click()
Dim lngResult As Long
Dim lngPos As Long
Dim intOptions As Integer
lngResult = RichTextBox1.Find(Text1.Text, 0, , intOptions)
If lngResult = -1 Then 'Text not found
MsgBox "未找到" & Text1.Text & "!", 64
Else 'Text found
RichTextBox1.SetFocus 'Set focus to rtfText
End If
End Sub