Load Data Ke ComboBox
.
![](data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAS8AAABjCAIAAABFUREsAAAWV0lEQVR4nO2d2VdUV/bHffYvMC/dWUFAEQiIY2Sep2JURAbBOI8xwZhJ03b8Za3fYz/0r3+rn0x304rMg8xgmAqZqhjKAgSVqAEzaVZi1Na65PbDrjqce+65t25hQSHsvb4Pty63Tt2653xq77PPwKo3/ApQKNRS0Ko3/AreCvynW1Dh2uDLa4OvuIcUeYQWeYQVeYYXr4soWR9Z6hVZ6hVV5hVVviG6fENMhXdspU9clW98tW98zdsJNX6J1/x1dRuT6jYm1wWk1G9KadiU2rQ5tWlzatOWtGbQ1vSWrektW3datW1X67Zdrdt2fQ3anvH19oyv39ndBtqR2b4js33HHqsCszoCszoCszpBQdldQdldwTl6UEiuPiRXH7q3GxSW1x2W1x2e12NVfm94fm9Efl9Efl/kPpv290fu7486MACKPmiIPmiIOWSkFXt4EBR3ZDDuyGD80SFQwrERWonHRxKPj+hOmEBJJ8y0kk+OJp8cTTlFNJZyaiz19Fjq6bHU92+B0kAfTIDSQQWToJ2gM0S35dr1oQPilrDzzG1r+QWTO20fnV4wCTdD7g1uldw5fBH4UimnxuA7wldOPjnKPAp4PvC4Eo+PMI8Rni086rgj1ifP1AhUE6k1qERSp1DFUN3h+b1Q+9AYwvKsbQOaSkiuteVAQwrK7rI1LWhmHdaGl2kVtMntGdBWW7fubNma3rIlrXlzatOm1KZNKQ0BKfUbk+s2JtX56+r8Eq+9nVDjG1/jG1/tE1flHVu5IaZiQ3S5V1S5V1SZV2Tp+sjSdRElnuHFHmFFHqFF7iFFa4OvrA2+7BZU+FbgPwmNhW5BV2woXvUILfYMK/YML10XUbY+stwrqnxDdMWG6ErvmErv2GqfuBrf+Jq3E675Jdb66+r8dfUbkxoCkhsDUho3pTZtTmvenNa6Jb11S3rr1p3XQTR1FHjtoB2ZHTsyOwL3EHUG7ukMyuqyyopfNygk90ZI7o3QvT20wvJ6QVb89vWDIt8diHx3IGq/IWq/IfqATQeN0QeNMYeGQLGHh2IPD8UdGbZpJO7ISPxRqxKOmRKOmRKP3wTpTph1J8xJJ0dpJZ8aA6W8d4tW6umJ1NMTae/bBLwV3Ka188ydnWfu7PqQ6O6uD+9mnCWaorX7I9A9WpkfOyDmvbYCp6QfZP10uBlyb3CrzP1TrE6kvT8BXzn19ATzKOD5MM8NHqbuhBmeLTzqhGMmePJQEaReoJpIrUElkjqFKobqjnx3AGqfwAltg2kz0JBCcm9AuyJwQquDRhi4pxPa5I7Mjnd2txMst+68viW9dXNa6+a05k2pTQEpjQHJjRuTGvx19f66Or/E2rcTrvnG1/jE1XjHVnvHVG6IrtwQXeEVVb4+snxdRJlneKlnWLFHaLFH6FUA0i3oyluBhQyNRUCjZxiPxphK71hC4zVC48akBhuNTUAjoMijsQ2kQGOnjUMQobE7KLtbiUbCoY3G/vD8fgUajaCYQ4MxhwYpGodjDxMUh20QEu9nSjxuSjxuBjE02jgcB9EQEqV9MAmSQ0hxeFfKIR8/GV33Mz++v+cTBwRvyfz4vgKlDJk0k3dpJnlYTqZ9MMl8d4pGeERjNJYUjSB41CabwwQmCY3DsYeHSa1BJZI6VaDRKqaRKNBok7XhWdshtEmKxjZC45Z0QmMT0LgxqYGi8ZqVxtjKDTEcGj3DCI1FdmksoWis2BBd4R1T6R1b5RPHozGZpdEGIZHjNJLfKiuNN0BcGsmvoI3DAZACjXMukfKKI7RXJL/TtEtU8opcl0g4nAv8NDtD4rIYZtRJy/r0gYrsUUqTyThMja5yMr1gkvz0qHhIJSdJAhCehxyhPSRxkso0gvppJ6lM443gnBtzNFo9pBqN23Zdt7lHisZkDo0+cdXesVXeVhorKBpLHKExvHRdBJ9G33igsZbQGJDcEJACNDZro7GdlozGuQCVilEJjT0huWyMytBIakUSo0Jsc5BPIxWa0i7RRLtEQiNpVbRLlIemNIS0P9x5xo4zVIdQnTqHpMIkwVLJVdJfh8LS+tPDDVxJEMEwKfWQZrmHJE6SpdFWp3S8SrC0R6NVtqbVLQlZsyQhq43Gdh6NzQEpEKzSNNb6xkOwyqFxXUSpLVi1Q+NVisay9ZEMjXOdRjmNm1KBxhaKRn6e5p3dHbQUaNSD6ABVqcdIYhI+jVYIieYCVBKjqncUdSdGQZo6itLQlGm1WpyhuvfL/ozoW6mmVcVc/CD7MzueU4urVGCSDVzVu5G2x8vpRspoZEJWkuMxRh80KtMoiVe5HUiKRn1Qtp5HI4jpOrZsSiVdRwmNsq6jlcb1kWVU1/Gqe8hVlka3oMK1wfOgsc5GI5vCkdFIB6htNIRU/oahsZvuMTI0cruL4fn9dIAqoxG6i4Pa0jZmqVckNI4lnVTsKEpd4qSMQzo01eQMGVfGQJhzbjrn3HTOeaIZVU3nnJ+2vuXcNM0kjSVNprqr5AauFJZzHpI4SaYbCQ8z6eSYjEZz4nGzjEZuUsdapwo0WqXSe+TRSPceSTqnwwakpOvIS+TU+SXWOUrj2uArbkFSGt1DODR6RfFpVE+oqtNIOKS9IonUZTTOdRflNDJJVAUaB6MPDiolUUl9q9A4v44iE5QqhKaS9IyCMyT4fZtz7lsGv9zPHZAMTmuZUL56+Aq3qpzjkbjKeXQj1WmUJXWYFOtg9MFBJRrVU6x073GuA0mSiLbeI7RVDTQqpVUrvKIgkcPSaEur8mm0O7yhllB1Ao1U8sZRGm0cGkAKNHKTqCRtwyRR5wJUOY1aOooyGu2HpowzJMwAQgxge//0ULtkcE7TWKqHr9zAVZlGLd1IhkarpL1HZtiDn2KV0QjSNODBp3FuwEMjjappVeVBjoWlEVCkkzeaaeQPMNLJG5K/0TLASOVvHKJRkkSlA9Skk2x30UbjJEghQOV4RWbQQr1nSJjh4pd3gei7vAvf5V34XqrvbHqYd0ERTiifG77KaGScpHo3ktA4mfY+242kaKTj1VF571EjjfMbfpTmchSHHxka+WnVhaNxlc2WNo194fl9ijRKeowMjUpDGpwkKkUjN4nKp1GWsLmbcfaubAhRMmYoC02hZzhDB6UUhxL88v8M+kEq63kGThmNMznnZ6RdSjZwhVtlZg4w345xkvZoHJd2IDkpVoUpASP84ceDknSOjMY+EJdG0Z5poRGu5NIIf3o1GkVxlSiuomyl0QgPkfyKw0toTHCsgUZ2Po28phVplIamMmcIEFrB2/eFRFAyeQnXUD5T4ip5HtJuN1I+iWfKIRqVU6yvN42iKDI0kvNO8I1WJqVkrigaV6+5SNO4es1FQuPqNRfnR+PqNRdpSXOn1mEJJk8jdYnfgdOjCPxx3xc/vnvxx3cv/kiqf/Wai3DexiRxlXMekqJxJuf8DPl07uAk0qgeqZLrCY3kzKtGqqIotrW10b6RMLkyaUx57xbAA80IjudNI+kxykYy1Gn8nvaKhEbgcP///ES3odVrLsJ52kMSJ4k00jSq9Bu100gD6Rt/jULxlfuNzM8DTebyppH54kAjeUkco2iLVOmL500jXQihkT65908PRVHMu/A9OZP/5x/IMU3j6jUXkUZX0eivq2Paj3OyOKKCLW8aSTum27RKpCq/3qF+I9AoL4SmEU6SP+Vd+I4c7/viB+rYGqnSd4WR6uLT6JdYO4eis3KqK5xGjf1GcpBeMEmOHeo37vnkPjlJk5lzfpoc534+Q39W3oWH5Jh4yNVrLjJZHHIGszjL2TdeuHBhRdEIWXgVGmmT0siOcJBr6BEOPo3n5miEDiR5CVGrjczvaTJB1Bkc4VgW/UawtrY2Lo1grqbR+aP/86ORyZGqjP5LabSO/nNpzP7sW4rGaWUaJWSCqDPLfPRf5Jmjo//OopHcgJNzqmQuDp1SBTIJjctyZhxpx7SfhJ9tdRpJpKo+M46icUpOI32c/RntJ79lAlcumYQ0+ZnlOjOOS6OjM+MIjdyZcXIauTPjyKc7cbxRbdY4k1NdrrPGmapVpzH19ARzMZCpNGucXMbMGpcXwvjJnHMSV8klk5AmP7NcZ40r0OjYrHFuIbRpmTUOV3JnjVM0aps1jiuq6DUcTOQJP9ukiUOHB/4ETY2+2O6KKrhMvqKKSe0AHoRM8F3wEubNwTGgZTueQ056BldUvSYrqnC1scbVxhSNdlYbK/3E4mpjXG1sZ7Ux7sRhdycOJobUshMH413pBA/uxIE7ceAuVa+0SxXBCXepwl2qFneXKtzBEXdwxB0cXbqDI+5ujLsba3eGuLvxAu5ufNnRrXGkaVU2kSOlkTMZYHtGO4hmUmkywKsPeFBTAmgPOWgLfpSSOvPf0FHBVSoyKZ8woA3O+YgpSn24QoVDJWc4744i4xVJvbBJVMolOmcjHAUabQMb0FaZMJWbwlFMqKoOb1x+K7DwDb8z9mnUNsjBJnI00ChJ6jiFRpUBDxmNmlKs6uut1Pfp4NNo9ZP2d3lcmjSSO2ecob2OIne2jf2hRcUkqiqN2oY0HKWR22mUp3AcG96YozHo338M+r9VboGX3EOL3UOL3UOu/vT9OAqFWky5h1wFAN0CLyGNKJQrJaHRI/Rf6yPLwIe6/M5QqJUmW3+wzCP0X0gjCuVKSWhcF3HZJ64ahildfmco1EqTbVJN9bqIy0gjCuVKSWj0jin2S6zzS6zzS6x1+Z2hUCtNfom1AKB3TDHSiEK5UhIafePLNqVaxzFdfmco1EoTzJnZlNrsG1+GNKJQrpSExo1JVTBhbevO6y6/MxRqpYksq9iYVIU0olCuFNKIQi0VSWjcnFpLpqu7/M5QqJUmsm5pc2ot0ohCuVISGrftaoB1X8E5N1x+ZyjUSlNwjnWZ7rZdDUgjCuVKSWjckdkMS6fD8/tcfmco1EpTeH4fALgjsxlpRKFcKQmNIblf27YeGXT5naFQK00xhwYBwJDcr5FGFMqVktAYnt8Je3glHDO5/M5QqJWmhGMmADA8vxNpRKFcKQmNUfu7YW/M5FOuvzMUaqUp+dQ4ABi1v3tBaCwt+jsKtewliqKTaYw91Av/aCHtg0kn0vj+ewdQqGWsX36+7xQa0z6YBABjD/UuII12/3szGtoSsV9+vu+QForGhKP9ez65t+eTe7s+vON0Gv2P6ZeCXF3XaEvdAC2NBs3bWTTu+vAOAJhwtB9pREMTHUJrAWlMPG7IPjedfW5690dTC0Gj6Awm6UI0FkgeNNKIZtdcSOPuj6YAwMTjhsWjUXwFLB0tRJTSi4ambkuFRt1xY875mZzzM5kff7PEadRegog0ojliLqQx8+NvAEDdceOi0sgcc1/S5xmi1MNRpBFt3rYSaVTqBKpfo4Io9xhpRHPUGLRW8WwxaEw4NpD16YOsTx9knL27aDTSppFGJUTpcpBGtPmZHC0lFJ1OY8bZuwBgwrEB19Co5OWUruGel5eDNKLNz7hocVFcWBrjDvdlnJ3KODuVXnB78WnUco0ShNyTSCPaPEwJLTmKTqcxveA2ABh3uG/xaOQGq476RvVyuHEsAolm11yYxZHQGH3gRnrBZHrBZMp7txaCxqUgF1c12pI3F9KY8t4tADD6wA2kEQ1tydAYsa8r+dRY8qkx3Qmz02lEQ3stzIU06k6YAcCIfV1IIxqa+MvP9x1aZ7xQNIbubYs/OhJ/dCTuyDDSiLYyzYWrjeOODAOAoXvbFopGR5dvolCvnZxPY1BWa/QBY/QBY+T+AWfR6OpfOjS0RbJXhyVy/wAAGJTVuiA0cqf5oaEtP3MyjdszGsPyesPyekNye5xIo8tHNVAoh/T40fTs7EvtXvHxo2mn0BiS2wMAbs9oRBpRKL3/Mf3jR9OiKM48FoamhL7xF10jz9uGnrcanzcbnjb0P6vve1rb87zmxtMK/W+3Z16Iojh1/57zadySXheUrQ/K1gdmdS0EjeIS2IkDhbIroHFoSrj3w+8TM7/fvCcMfzM7dEcwTs723ZrtGbfoR4UOk9BifNnY+0QUxcGxO06hMTCrCwDckl63eDS+ChiOFjIPelErXEBj3/iLiZnfxx8Iw3dngcPecUFvFvQmocMkXB8SWgwvmwZ+E0WxtX/C+TQGJNe8s7v9nd3t2zPaljiN2ktAGlGOCmjsuvkcvKJhUugdF3rHhR6z5fqQ0GycBbUYX7YMPBFFsarD7BQat2e0AYAByTWLSqOovIaDvOSGl0oxp1I4ijSiHBXQeH3oP0N3BOOd2b5bsz2jlp5Ri27fl83G2SaD0GiwNBmEJoMANBY133Q+jX6JFVvSW7ekt25Oa1kc3yhHRf0a/1feicPlNY1a+gIaW43PDZOCYcLqGHX7vgQ1Giz1BqHRYGk0WIDGwgaTU2jcnNYCAPolVriGRtqUrqGfFDdSlZcj/1D5u1AoroDGhv5nveNC3/hs3/gsQRFUZ7QC2dT/myiKX9UuFxqZB6GRRn/NmCGNKEcFNNb3PSUBKqjdZKGBrDNYGvufLBSNPrEl/kkN/kkN/rr6xafRId9otxz161EoFQGN13qe6c1zAareLHSYhVYKyFrDy9reJ6IoXqodcQqN/rp6ANAntmTxaPSXgsRkcZQO1F8qZXHU/4RCyQU0Vt141mES9KOCbt+X+lGh0zzbYRaabgrVgxbdvi+rBy1V/S9rep4uFI3rI6/4xtf4xtf4xFUvBI0o1GshoLGs89n1IaHDJHSaZjvMQodZaDdbmm4K9SahZlioMFrK+15W9TjTN/rEVQOA6yOvII0olN7fRmNpx9Mmg3B9SGgfsVwfFq4PC60mS71JqBu2VA9aKgYsZb0vqvQLRqNnWKFXdIVXdIVXVLkTaRTR0F4rAxqL257U979oNFpajC9bjC+bjS8aBy11Bku1wVLZ/6Ks90V5z/NK/a+i87I4XlHlAKBnWCHSiIYmijYaJx/8p777l4beXxt7n4Aaen+t6Xla0/O0uue3qu4nlV2/3nrwTBTF8rZR59PoFvSVR1iJR1iJR2jxQtDoFDLnVyD+KKBpt8ePpjtvPtR4cXnXtLNWVHmEFoPcgr5aPBpfhQ1HCyGLQef9iWgrzR4/mn70y5Pitnt/rbr1v1fGLxaazn918/NLI+cumc5dMp3/6iboi8LRv1be+enX5wtMY1jJEqfR0RKQRjTt5qrVxi6jkTnmvuT6NCVHp+4DkUY07cZdbUwWHMOaY3q18cOHD5xP45vb/989pMgzrGR9ZLl3TCUkW+Xy19XJFZDcyJW6b5T/Vf0aURlR7rH6STQ0rklmxo1bekYt3aOz3aOznebZDpPQYRKahgV6ZhyMcMgbP5cUJay8YyrXR5Z7hpW4hxT9cdvfVr25/W/uIVc9w0u9osq9Y6veTrjGlb+uXq6AlCau7NJIm9I19JPiRqrychhDGtG0Gz0zDqaq6kcF/agAk+M6zEKTSagZFJiZcfLGzyVFCSvv2CqvqHLP8FL3kKtvbncRjcyD0EijqMEfct+FhmbXlgSNf9j6F7fAS2uD/+EZVrgu4rJXVBFXPrElcvnGl3G1EJGqSoHy61VOoqFxjVlR1TNu6TbPdptnO02z7SZLu8nSNCTQK6qARnnj55KihNW6iMueYYVrg//hFnjpD1v/8l8TgPw+WhCkJwAAAABJRU5ErkJggg==)
Untuk VB.6 codingnya adalah :
With djie_Combo1
.Clear
For i = 0 To 100
.AddItem "Item Ke " & i
Next
.ListIndex = 0
End With
Untuk VB.NET codingnya adalah :
With djie_ComboBox1
.Items.Clear()
For i As Double = 0 To 10
.Items.Add("Item Ke " & i.ToString)
Next
.SelectedIndex = 0
End With
Atau Memakai Array, Codingnya Adalah :
With djie_ComboBox1
.Items.Clear()
.Items.AddRange(New String() {"Item Ke " & 0, "Item Ke " & 1, "Item Ke " & 2, "Item Ke " & 3})
.SelectedIndex = 0
End With
Untuk VB.6 codingnya adalah :
With djie_Combo1
.Clear
For i = 0 To 100
.AddItem "Item Ke " & i
Next
.ListIndex = 0
End With
Untuk VB.NET codingnya adalah :
With djie_ComboBox1
.Items.Clear()
For i As Double = 0 To 10
.Items.Add("Item Ke " & i.ToString)
Next
.SelectedIndex = 0
End With
Atau Memakai Array, Codingnya Adalah :
With djie_ComboBox1
.Items.Clear()
.Items.AddRange(New String() {"Item Ke " & 0, "Item Ke " & 1, "Item Ke " & 2, "Item Ke " & 3})
.SelectedIndex = 0
End With
Posting Komentar untuk "Load Data Ke ComboBox"