|
How to crop the screen as image in windows 7 |
 |
|
សរសេរដោយ Satya MAO
|
|
ព្រហស្បតិ, 29 មេសា 2010 14:20 |
|
ក្នុង Windows Seven យើងអាចធ្វើការកាត់យកនូវផ្នែកណាមួយនៃអេក្រង់ (screen) មករក្សាទុកជាឯកសាររូបភាពបានដោយអនុវត្តដូចខាងក្រោម៖ ចុចលើប៊ូតុង Start --> All Programs --> Accessories--> Snipping Tool 
បន្ទាប់មកចុចលើប៊ូតុង New --> យក Cursor គូសទៅលើផ្នែកណាមួយដែលយើងចង់បានជារូបភាព 
បន្ទាប់មកចុចលើប៊ូតុង Save --> ជ្រើសរើសប្រភេទឯកសាររូបភាព និង ទីតាំងដែលចង់រក្សាទុកជាការស្រេច។ |
|
|
Add new product into table using DAO in Ms.Access |
|
|
សរសេរដោយ Satya MAO
|
|
ព្រហស្បតិ, 29 មេសា 2010 11:06 |
|
ដំបូងយើងត្រូវមាន table មួយគឺ products ដែលក្នុងនោះមាន Fields ដូចជា៖ - ProductID: AutoNumber
- ProductName: Text
- Qty: Number (integer)
- UnitPrice: Currency
និង បង្កើត Form មួយសម្រាប់បញ្ចូលព័ត៌មានផលិតផលដូចខាងក្រោម៖ 
ខាងក្រោមជាកូដសម្រាប់ Add នូវព័ត៌មានផលិតផលថ្មីដោយប្រើ DAO៖ Dim db As DAO.Database
Dim rs As DAO.Recordset
Set db = CurrentDb
Set rs = db.OpenRecordset("Products")
rs.AddNew
rs!Productname = Textpname
rs!Qty = TextQty
rs!UnitPrice = Textunitprice
rs.Update ទាញយក Source Code |
|
Export Data from Visual Basic .Net 2008 to Microsoft Word |
|
 |
|
សរសេរដោយ Setha IECH
|
|
ព្រហស្បតិ, 29 មេសា 2010 09:14 |
|
Dim objWordApp As Object
Dim objWordDoc As Object
objWordApp = CreateObject("Word.Application")
objWordDoc = objWordApp.documents.add()
objWordDoc.tables.add(objWordDoc.range(0, 0), 11, 3)
With objWordDoc.tables(1)
.borders.InsideLineStyle = 1
.borders.OutsideLineStyle = 1
For i As Integer = 0 To 10
.rows(i + 1).cells(1).range.text = Me.dgvData.Rows(i).Cells("id").Value
.rows(i + 1).cells(2).range.text = Me.dgvData.Rows(i).Cells("name").Value
.rows(i + 1).cells(3).range.text = Me.dgvData.Rows(i).Cells("gender").Value
Next
End With
objWordApp.visible = True
objWordApp = Nothing ---------------------------- Download Source Code Here |
|
ដំណោះស្រាយការផ្ទេរទឹកពីកែវទៅកែវ |
|
|
|
សរសេរដោយ Setha IECH
|
|
ព្រហស្បតិ, 22 មេសា 2010 15:57 |
 - កែវទី១ មានចំណុះ ១៩លីត្រ៖ គ្មានទឹក
- កែវទី២ មានចំណុះ ១៣លីត្រ៖ មានទឹកពេញ
- កែវទី៣ មានចំណុះ ៧លីត្រ៖ មានទឹកពេញ
ចូរអ្នកចាក់ផ្ទេរទឹកយ៉ាងណារវាងកែវទាំងបីខាងលើ ដើម្បីទទួលបានកែវពីរក្នុងចំណោមកែវបីនោះមានទឹក ១០លីត្រៗ។
លទ្ធផលនឹងបង្ហាញដូចរូបខាងក្រោម៖
សូមមើលដំណោះស្រាយខាងក្រោម (សាកល្បងសិនមុននឹងមើលដំណោះស្រាយខាងក្រោម)
ដំបូង៖ 0 – 13 – 7 - ចាក់ពីកែវទី២ ទៅកែវទី១ (13 – 0 – 7)
- ចាក់ពីកែវទី៣ ទៅកែវទី២ (13 – 7 – 0)
- ចាក់ពីកែវទី១ ទៅកែវទី៣ (6 – 7 – 7)
- ចាក់ពីកែវទី៣ ទៅកែវទី២ (6 – 13 – 1)
- ចាក់ពីកែវទី២ ទៅកែវទី១ (19 – 0 – 1)
- ចាក់ពីកែវទី៣ ទៅកែវទី២ (19 – 1 – 0)
- ចាក់ពីកែវទី១ ទៅកែវទី៣ (12 – 1 – 7)
- ចាក់ពីកែវទី៣ ទៅកែវទី២ (12 – 8 – 0)
- ចាក់ពីកែវទី១ ទៅកែវទី៣ (5 – 8 – 7)
- ចាក់ពីកែវទី៣ ទៅកែវទី២ (5 – 13 – 2)
- ចាក់ពីកែវទី២ ទៅកែវទី១ (18 – 0 – 2)
- ចាក់ពីកែវទី៣ ទៅកែវទី២ (18 – 2 – 0)
- ចាក់ពីកែវទី១ ទៅកែវទី៣ (11 – 2 – 7)
- ចាក់ពីកែវទី៣ ទៅកែវទី២ (11 – 9 – 0)
- ចាក់ពីកែវទី១ ទៅកែវទី៣ (4 – 9 – 7)
- ចាក់ពីកែវទី៣ ទៅកែវទី២ (4 – 13 – 3)
- ចាក់ពីកែវទី២ ទៅកែវទី១ (17 – 0 – 3)
- ចាក់ពីកែវទី៣ ទៅកែវទី២ (17 – 3 – 0)
- ចាក់ពីកែវទី១ ទៅកែវទី៣ (10 – 3 – 7)
- ចាក់ពីកែវទី៣ ទៅកែវទី២ (10 – 10 – 0)
ដូចនេះ យើងទទួលបានកែវពីរដែលមានទឹក១០លីត្រស្មើគ្នាគឺកែវទី១ និងកែវទី២ ។
|
|
Text to Speech in VB.Net 2008 |
|
|
សរសេរដោយ Satya MAO
|
|
អង្គារ, 27 មេសា 2010 16:04 |
|
មុននឹងចាប់ផ្ដើមសរសេរកូដ យើងត្រូវ Add Reference មួយដែលមានឈ្មោះថា Microsoft Speech Object Library ដោយចុចលើ Project menu --> Add Reference --> ចុចលើ Tab COM --> Microsoft Speech Object Library 
បន្ទាប់មកទើបសរសេរកូដលើប៊ូតុង Speech: 
Imports SpeechLib
Public Class Form1
----------------------------------------------------------
Private Sub ButtonSpeech_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles & _ ButtonSpeech.Click
Dim sp As New SpVoice
sp.Speak(TextBox1.Text, SpeechVoiceSpeakFlags.SVSFDefault)
End Sub
End Class |
|
|
|
|
|
|
ទំព័រ 5 នៃ 18 |
