|
Process Killer in Visual Basic .Net 2008 |
 |
|
សរសេរដោយ Satya MAO
|
|
អង្គារ, 27 មេសា 2010 15:17 |
|
ការទាញយកនូវ processes ទាំងអស់មកបង្ហាញក្នុង Listview និង អាច kill process បាន ។ ក្នុងនោះក៏អាចមើលនូវការប្រើប្រាស់ CPU និង Memory ដោយក្នុងនោះយើងប្រើនូវ control មួយគឺ PerformaceCounter ។ 
ទាញយក Source Code |
|
|
Create Table in Microsoft Access From Visual Basic 6.0 |
|
 |
|
សរសេរដោយ Administrator
|
|
អង្គារ, 27 មេសា 2010 09:37 |
|
1. Create one database in Microsoft Access named: a.mdb and place to C:\
2. Create project in Visual Basic 6.0 Dim db as DAO.Database
Dim tbd As DAO.TableDef set db=OpenDatabase("C:\a.mdb")
Set tbd = db.CreateTableDef("tblTest")
With tbd
.Fields.Append .CreateField("ID", dbText)
.Fields.Append .CreateField("Name", dbText)
.Fields.Append .CreateField("Sex", dbText)
.Fields.Append .CreateField("DOB", dbDate)
End With
db.TableDefs.Append tbd |
|
Set Desktop WallPaper in Visual Basic .Net 2008 |
|
|
សរសេរដោយ Satya MAO
|
|
អង្គារ, 27 មេសា 2010 09:31 |
|
Project នេះគឺ ជាការសរសេរកូដកំណត់ Desktop wallpaper ដោយប្រើភាសា VB.Net 2008 ។ ដែលក្នុងនោះយើងអាចជ្រើសរើសរូបភាព និង Style របស់ wallpaper ។ 
ទាញយក Source Code |
|
Create Typing in VB6 |
|
|
|
សរសេរដោយ Setha IECH
|
|
អង្គារ, 27 មេសា 2010 09:25 |
Tips: Create one form and create Button Array for each letter as on keyboard layout and create one RichTextBox for the words to type.
Private strWord As String
Private curInd As Integer Private Sub HighLightKey(ByVal parLetter As String, ByVal par_color As Long)
Dim i As Integer
If (Asc(parLetter) >= 65 And Asc(parLetter) <= 65 + 25) Or _
(Asc(parLetter) > 97 And Asc(parLetter) < 97 + 25) Then
For i = 0 To 25
If Asc(parLetter) = 65 + i Or Asc(parLetter) = 97 + i Then
cmdLetter(i).BackColor = par_color
End If
Next
ElseIf Asc(parLetter) = 13 Then
cmdLetter(27).BackColor = par_color
ElseIf Asc(parLetter) = 32 Then
cmdLetter(26).BackColor = par_color
End If
End Sub Private Sub ChangeHighLightKey()
Dim strPreviousLetter As String
Dim strLetter As String
'
If curInd > 0 Then
strPreviousLetter = Mid(strWord, curInd, 1)
HighLightKey strPreviousLetter, &H8000000F
End If
'
If curInd < Len(strWord) Then
strLetter = Mid(strWord, curInd + 1, 1)
HighLightKey strLetter, &HFF00&
End If
End Sub
................................................................................. Download Source Code Here |
|
Create Class in Dev C++ |
|
|
សរសេរដោយ Satya MAO
|
|
អង្គារ, 27 មេសា 2010 09:13 |
|
#include<conio.h>
#include<iostream>
#include<string>
using namespace std;
class clsPerson
{
private:
string name;
char sex;
int age;
string phone;
public:
void input()
{
cout<<"Person Name:";
getline(cin,name);
cout<<"Sex:";
cin>>sex;
cout<<"Age:";
cin>>age;fflush(stdin);
cout<<"Phone Number:";
getline(cin,phone);
}
void output()
{
cout<<"\tPerson Information\n";
cout<<"-----------------------------------------------------------------\n";
cout<<"Name\t\tSex\tAge\tPhone\n";
cout<<"-----------------------------------------------------------------\n";
cout<<name<<"\t"<<sex<<"\t"<<age<<"\t"<<phone;
}
};//end of class
int main()
{
clsPerson p;
p.input();
cout<<endl;
p.output();
getch();
return 0;
}//end of main
|
|
LAST_UPDATED2 |
|
|
|
|
|
|
ទំព័រ 4 នៃ 5 |
