'
Private Sub Picture1_Mousedown(Button As Integer, Shift As Integer, x As Single, y As Single)
Dim ColorUnderMouse As Long
ColorUnderMouse = Picture1.Point(x, y)
Select Case ColorUnderMouse
Case vbRed
FloodFill Picture1.hdc, x, y, vbBlue
End Select
'
'<td class="vertTh">Movie</td>
<td class="crop"><a target="_blank" href="movie/1282280/download-interview-with-a-ladoo-2012.html">Interview With A ladoo (2012)</a></td>
<td>9 days ago</td>
<td class="crop provider">4* <!--<a href="/site/exampe.com">-->Psycho Downloads<!--</a>--></td>
</tr>
<tr class="alt">
<td class="vertTh">Movie</td>
<td class="crop"><a target="_blank" href="movie/1281262/download-interview-with-a-ladoo2-2012.html">Interview With A ladoo2(2012)</a></td>Private Sub cmdsearchproduct_Click()
frmproductsearch.Show
End Sub::::frmproductsearch::::
Option Explicit
Dim lst As ListItem
Dim lst1 As ListItem
Dim productcode As Long
Dim warning As String
Dim countertitle As Integer
Public Sub FillListView()
Set lst = lvproduct.ListItems.Add(, , txtcode.Text)
With lst
.SubItems(1) = rs!code
.SubItems(2) = rs!erb
.SubItems(3) = rs!Description
.SubItems(4) = rs!enterby
.SubItems(5) = rs!casesize
.SubItems(6) = rs!unitsize
.SubItems(7) = rs!category
.SubItems(8) = rs!subcategory
End With
End Sub
Private Sub cmdproductsearchclose_Click()
Unload Me
End Sub
Private Sub cmdrefresh_Click()
lvproduct.ListItems.Clear
Call GetProductRecord
End Sub
Private Sub Form_Load()
txtcode.Text = 1
Call GetProductRecord
Connection
sql = "SELECT code FROM product"
Set rs = New ADODB.Recordset
rs.Open sql, Conn, adOpenDynamic, adLockOptimistic
If Not rs.EOF Then
With rs
.MoveLast
txtcode.Text = !code + Val(1)
.Close
End With
End If
End Sub
Public Sub GetProductRecord()
Connection
sql = "product"
Set rs = New ADODB.Recordset
rs.Open sql, Conn, adOpenDynamic, adLockOptimistic
Do Until rs.EOF
Set lst1 = lvproduct.ListItems.Add(, , rs!code)
With lst1
.SubItems(1) = rs!erb
.SubItems(2) = rs!Description
.SubItems(3) = rs!enterby
.SubItems(4) = rs!casesize
.SubItems(5) = rs!unitsize
.SubItems(6) = rs!category
.SubItems(7) = rs!subcategory
End With
rs.MoveNext
Loop
rs.Close: Set rs = Nothing
End Sub
Private Sub lvproduct_Click()
End Sub
Private Sub txtproductcategory_Change()
lvproduct.ListItems.Clear
Connection
'Call connect
sql = "SELECT * FROM product WHERE category LIKE '" & Trim(txtproductcategory.Text) & "%'"
Set rs = New ADODB.Recordset
rs.Open sql, Conn, adOpenDynamic, adLockOptimistic
If Not rs.EOF Then
Do Until rs.EOF
Set lst1 = lvproduct.ListItems.Add(, , rs!code)
With lst1
.SubItems(1) = rs!erb
.SubItems(2) = rs!Description
.SubItems(3) = rs!enterby
.SubItems(4) = rs!casesize
.SubItems(5) = rs!unitsize
.SubItems(6) = rs!category
.SubItems(7) = rs!subcategory
End With
rs.MoveNext
Loop
End If
rs.Close: Set rs = Nothing
End Sub
Private Sub txtproductcode_Change()
lvproduct.ListItems.Clear
Connection
sql = "SELECT * FROM Product WHERE UCase(code) LIKE '%" & UCase(txtproductcode.Text) & "%'"
Set rs = New ADODB.Recordset
rs.Open sql, Conn, adOpenDynamic, adLockOptimistic
If Not rs.EOF Then
Do Until rs.EOF
Set lst1 = lvproduct.ListItems.Add(, , rs!code)
With lst1
.SubItems(1) = rs!erb
.SubItems(2) = rs!Description
.SubItems(3) = rs!enterby
.SubItems(4) = rs!casesize
.SubItems(5) = rs!unitsize
.SubItems(6) = rs!category
.SubItems(7) = rs!subcategory
End With
rs.MoveNext
Loop
End If
rs.Close: Set rs = Nothing
End Sub
Private Sub txtproductdescription_Change()
lvproduct.ListItems.Clear
Connection
sql = "SELECT * FROM Product WHERE UCase(Description) LIKE '%" & UCase(txtproductdescription.Text) & "%'"
Set rs = New ADODB.Recordset
rs.Open sql, Conn, adOpenDynamic, adLockOptimistic
If Not rs.EOF Then
Do Until rs.EOF
Set lst1 = lvproduct.ListItems.Add(, , rs!code)
With lst1
.SubItems(1) = rs!erb
.SubItems(2) = rs!Description
.SubItems(3) = rs!enterby
.SubItems(4) = rs!casesize
.SubItems(5) = rs!unitsize
.SubItems(6) = rs!category
.SubItems(7) = rs!subcategory
End With
rs.MoveNext
Loop
End If
rs.Close: Set rs = Nothing
End SubT62_8505Y_RBC HOOP ACRUX:QQ_MEDIUM INDIGO:16_STD
T01_5347I_ACORN PRINT SCARF:G4_LILAC MIX:1SIZE
T43_8625_TQ ENG STRIPE:F4_NAVY MIX:16
T54_6014_CROP CARGO:TE_TOBACCO:12
T62_9243Y_NANCY TIER SKT:E0_BLUE:14_89
T43_2589_FIREWORK SEQUIN T:T4_GREY MIX:16
T57_8240_LINEN VIS TROUSER:Y0_BLACK:14_MED
T57_2209H_FLIPPY POLY SKIRT:Y0_BLACK:16_39
T43_2324_SS SHIRR PKT FRNT:J0_GREEN:16
T57_5593K_FRENCH CREPE WIDE:SS_STONE:14_SHT
T43_2860_SS PLT SHELL SPEC:Y8_BLACK OVERDYE:12
T41_2579M_STRIPE LACE RAGLA:U8_BURGUNDY MIX:16
T41_5013A_OPP VEST:SG_SUGAR PINK:14
T41_5013A_OPP VEST:SG_SUGAR PINK:14
T41_7030A_WHITE FLR LINEN:Z4_WHITE MIX:16
T43_2620_TQ GRAPHIC TUNIC:D4_PURPLE MIX:14
T43_2620_TQ GRAPHIC TUNIC:D4_PURPLE MIX:14
T41_2341J_SPARKLE CARDI:E1_LIGHT BLUE:12Client-002: Found-ada561aede0bb0fd867dc9341b9a9e6e2f3862cc:003537900496778600:070401090308010208000208060706ada561aede0bb0fd867dc9341b9a9e6e2f3862cc:003537900496778600:070401090308010208000208060706Private Sub Command1_Click()
Dim txt As String, SearchTxt As String
Dim Pos As Long, CurPos As Long, CurSel As Long
rtbText.Text = rtbChat.Text
rtbChat.SetFocus
SearchTxt = "Found-"
CurPos = rtbChat.SelStart
CurSel = rtbChat.SelLength
txt = rtbChat.Text
Pos = InStr(1, txt, SearchTxt) - 1
If Pos > -1 Then
rtbChat.SelStart = Pos
rtbText.Text = rtbChat.Text
rtbText.SelStart = 0
rtbText.SelLength = 20
rtbText.SelText = ""
End If
End SubFor n = 0 To UBound(a)
If a(n) = "" Then Exit For
lstNames.AddItem a(n)
Next nFor n = 0 To UBound(a)
If a(n) = "" Then Exit For
lstNames.AddItem a(n)
Next n