[RESOLVED] sending sms with listview and checkbox in listview

[salsa31]

hello everyone
this is a little hard
i have a form that sends sms ok?
now i also i have listview with a checkbox in the same form
what i want to do is to send 1 sms or to all sms from a text1.text
that i write the message (text1.text)
and i pick the person from the listview that this will send the message.
the code of the message i already have
i just want to be able to choose from a listview the contact and send him a message in what i write in the (text1.text)
i hope im understood
*****************
this is what i have in the mail form where i send emails from a listview
Dim SendToAll As String, NoEmails As Boolean

LsVw.SetFocus
NoEmails = True
For I = 1 To LsVw.ListItems.Count
If LsVw.ListItems(I).Checked And Len(Trim$(LsVw.ListItems(I).SubItems(1))) <> 0 Then
SendToAll = SendToAll & LsVw.ListItems(I).SubItems(1) & "; "
NoEmails = False
End If
Next
If Not NoEmails Then ShellExecute hwnd, "open", "mailto:" & SendToAll, vbNullString, vbNullString, SW_SHOW
Unload Me

[useruseronline]

try doing it this way ...

[salsa31]

this listview is displaying data from the data base
this is a barber programm.
you have mybe another idea?

[useruseronline]

the sms data in list is name or numbers ? , load data from database to list1 and then select the recivers list which will be add to list 2 , then send sms to list of list 2

[salsa31]

the sms data i write in a text1
now i have a database which i store customers.
this is the sms form.
I dont know what do.
im stuck here
please any ideas for me

[useruseronline]

plz upload ur and attach ur form .. i shall see the list method

[salsa31]

plz upload ur and attach ur form .. i shall see the list method

to upload only the sms form you meen

[useruseronline]

ya tha form which u explained

[salsa31]

this is the form of the sms

[salsa31]

this is the access file that i store the custs
hair.mdb

[useruseronline]

this is the form of the sms

this is not the form u showed in picture .... there is no listbox

[salsa31]

this is not a list box i use a listview

[useruseronline]

this is not a list box i use a listview

use list box it will be easy

[salsa31]

and this is the method i use to show the custs from the database
LsVw is Listview
**********************
Set RS = CN.Execute("SELECT * FROM Customers")

LsVw.ListItems.Clear
While Not RS.EOF
Set Itm = LsVw.ListItems.Add(, , RS!FullName)
Itm.Bold = True
Itm.SubItems(1) = RS!Cellular

RS.MoveNext
Wend
If LsVw.ListItems.Count = 0 Then



MsgBox " no custs ", vbInformation
End If
if you can show me how to do it with a listbox that will be great

[salsa31]

can you show me an example plz?

[useruseronline]

http://www.vb-helper.com/howto_net_db_load_listbox.html

it shows how to add data from database to listbox

[salsa31]

this is vbnet
you posted here something erarlier that can be good
load data from database to list1 and then select the recivers list which will be add to list 2 , then send sms to list of list 2.
i never worked with listbox
can you show me an example or help me with this code plz?

[useruseronline]

i know to do it with data from textfile will it be ok ?

[salsa31]

yes anything will be ok as long as i can choose from the textfile to which i can send sms or to send to all

[useruseronline]

Option Explicit
Private Sub Form_Load()
Open "C:\Downloads\b.txt" For Input As #1
Dim filesize As Integer
filesize = LOF(1)
Text1 = Input(filesize, #1)
Text1.Visible = False
Close #1
    
    '~~~ When a button is pressed
   
        Dim temp() As String
        temp = Split(Text1.Text, vbCrLf)    '~~~ Split the lines in the TextBox, separated by a vbCrLf character(newline) and store it in the array
       
        '~~~ Loop through the array
        Dim i As Integer
        For i = LBound(temp) To UBound(temp)
            List1.AddItem temp(i)   '~~~ add each element in the array to the listbox
        Next
    End Sub

draw a textbox and listbox

create a text file

replace the file loocation with ur text file location

did it work for u ?

[salsa31]

Option Explicit
Private Sub Form_Load()
Open "C:\Downloads\b.txt" For Input As #1
Dim filesize As Integer
filesize = LOF(1)
Text1 = Input(filesize, #1)
Text1.Visible = False
Close #1
    
    '~~~ When a button is pressed
   
        Dim temp() As String
        temp = Split(Text1.Text, vbCrLf)    '~~~ Split the lines in the TextBox, separated by a vbCrLf character(newline) and store it in the array
       
        '~~~ Loop through the array
        Dim i As Integer
        For i = LBound(temp) To UBound(temp)
            List1.AddItem temp(i)   '~~~ add each element in the array to the listbox
        Next
    End Sub

draw a textbox and listbox

create a text file

replace the file loocation with ur text file location

did it work for u ?

this will pull the contacts and their number from the DB?

[useruseronline]

from textfile

[salsa31]

i dont understand
i work with access
how do i pull it to the text file?
this is the code that i use to pull the customers from the DB and show it in a listview
***************
Set RS = CN.Execute("SELECT * FROM Customers")

LsVw.ListItems.Clear
While Not RS.EOF
Set Itm = LsVw.ListItems.Add(, , RS!FullName)
Itm.Bold = True
Itm.SubItems(1) = RS!Cellular

RS.MoveNext

[useruseronline]

unzip both files in same folder

[useruseronline]

the code will wok as this file code

[salsa31]

what i need basicly is to choose a contact from the db that will be showed in a list 
and choose to who i ever want to send to him a sms
or to send to all sms with their numbers ofcurse.
****************************************
this is another form that i send email to
*********************************





Private Sub Check1_Click()

If Check1.Value = vbChecked Then    'select all
With LsVw
    For i = 1 To .ListItems.Count
        .ListItems(i).Checked = True
        .ListItems(i).Selected = True
        TxtFind.Enabled = False
        
    Next i
End With

Else                                'desel all
With LsVw
    For i = 1 To .ListItems.Count
        .ListItems(i).Checked = False
        .ListItems(i).Selected = False
         TxtFind.Enabled = True
         TxtFind.SetFocus
   Next i
  End With

End If
End Sub

Private Sub Form_Load()
ListRTL LsVw

    Set RS = CN.Execute("SELECT * FROM Customers")

        LsVw.ListItems.Clear
        While Not RS.EOF
            Set Itm = LsVw.ListItems.Add(, , RS!FullName)
            Itm.Bold = True
            Itm.SubItems(1) = RS!Email
            Itm.SubItems(2) = RS!Cellular
            
            RS.MoveNext
           Wend
           If LsVw.ListItems.Count = 0 Then
           BttnSend.Enabled = False
           TxtFind.Enabled = False
           Check1.Enabled = False
           Label3.Enabled = False
           Label4.Enabled = False
           LsVw.Enabled = False
           Label1.Enabled = False
           Label2.Enabled = False
           
           
           
           
           
         
           MsgBox "no custs"
           End If
           
           
End Sub

Private Sub BttnSend_Click()
    Dim SendToAll As String, NoEmails As Boolean
    
    LsVw.SetFocus
    NoEmails = True
    For i = 1 To LsVw.ListItems.Count
        If LsVw.ListItems(i).Checked And Len(Trim$(LsVw.ListItems(i).SubItems(1))) <> 0 Then
            SendToAll = SendToAll & LsVw.ListItems(i).SubItems(1) & "; "
            NoEmails = False
        End If
    Next
    If Not NoEmails Then ShellExecute hwnd, "open", "mailto:" & SendToAll, vbNullString, vbNullString, SW_SHOW
    Unload Me
End Sub

Private Sub BttnClose_Click()
    Unload Me
End Sub

Private Sub Timer1_Timer()
Label1.Caption = LsVw.ListItems.Count
End Sub

Private Sub TxtFind_Change()
   BttnSend.Enabled = False
   BttnClose.Enabled = False
   Check1.Enabled = False
   Set RS = CN.Execute("SELECT * from Customers WHERE FullName LIKE '%" & RplS(TxtFind.Text) & "%' ORDER BY FullName")
    
    LsVw.ListItems.Clear
    While Not RS.EOF
        Set Itm = LsVw.ListItems.Add(, , RS!FullName)
        
        Itm.Bold = True
        
        Itm.SubItems(1) = RS!Email
        Itm.SubItems(2) = RS!Cellular
        RS.MoveNext
        Check1.Enabled = True
        BttnSend.Enabled = True
        BttnClose.Enabled = True

   
    Wend
   If TxtFind.Text <> "" Then
    Check1.Enabled = False
    End If
   
End Sub

[useruseronline]

is this file solving ur problem to load data in listbox ?

[salsa31]

is this file solving ur problem to load data in listbox ?

no my friend
this dosnt load the customers that i have in the DB access
look what i posted earlier mybe it can help

[useruseronline]

snd me few cutomers name

[salsa31]

this is hairdesign the access file
you have 2 custs

[useruseronline]

dont send me file snd me names

[salsa31]

dany macaby phone number: 0544311942
david cross phone number :0544636473

[useruseronline]

uzip both files in same folder and open project 1 , is it working now ?

[salsa31]

yes its working but i need thier name and phone numbers

[useruseronline]

name and phone number in listbox ? or just numbers to send msg ?

[salsa31]

name and phone numbers that i will see which phone number belongs to which name.
ofcurse this need to be pulled from the database

[useruseronline]

u will have to do it in this way with text file no database

[salsa31]

can you connect to my pc to see the project?
maybe this will be more helpful for you to help me?

[useruseronline]

i cant ... plz capture video and upload to youtube i will watch there

[salsa31]

you have msn?
if i dont complete this project i will get fired
this is the only thing that left for me